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1.0 ABSTRACT 
THE RK11/RKOS PERFORMANCE TING 8 IS_ A LEVEL Oey aan 
PROGRAM AIMED AT als ori 


B RAKLL/RKOS, SYS TEM” Rte 


CHE Te FOR 
(INTERACTION, POLLING ie IT ALSO PROVIDES an MEANS F 
EVALUATING A’ SYSTEM Enc ITS ERROR LOGGING AND DATA-TRANSFER 
LOGGING FACILITIES. 
AT THE BEGINNING OF THE THERE IS A_ SERIES OF TESTS 
fe AIMED AT DETECT AND ANALYZING FAILURES ASSOCIATED 
WITH BOUNDARY CONDITION TRANSFERS. 


THE LATTER PART (AND THE MORE SIGNIFICANT ONE) CONSISTS OF THE 
EXERCISER. 


2.0 REQUIREMENTS 
2.1 EQUIPMENT 


A. PDOP11 WITH CONSOLE TELTYPE 
B. 8K OF MEMORY - 12K FOR CHAIN MODE 
* RK11 OR RKV11 


L 
1-8 RKOS OR RKOSF DRIVES (DRIVE TYPES MAY BE MIXED) 
2.2 PRELIMINARY PROGRAMS 


SINCE THIS IS A HIGHELEYEL. SR AOER THE CONTROLLER AND 

THE DRIVE SHOULD BE Bu TS. T IT IS POSSIABLE TO HANG 
T IF HEAD POSITIONING. Pocre TS FAULTY ON DUAL 
DENSITY ORIVES. THUS THE FOLLOWING PROGRAMS SHOULD BE RUN BEFORE 
ATTEMPTING TO USE THIS PROGRAM. 


A. RK11 BASIC LOGIC Te. (I AND IT) 
4 RK11/RKOS DYNAMIC 
 RKOS UTILITY PACKAGE (IF NEEDED) 
2.3 EXECUTION TIME 


THIS VARIES FROM 30 TO 90 MINUTES FOR A PASS. IT SHOULD BE NOTED 
= a ge Alp. EXERC I OER LEVEL PROGRAM AND SHOULD BE PREFERRABLY 


L PERIOD - TI 
NOTE: THE FIRST PASS IS A SHORT (5-20 MINUTE) PASS TO SERVE AS 
ICK VERIFY OF THE RK SUBSYSTEM. 


3.0 STARTING ADDRESS 
200 - ALL SWITCHES DOWN. SEE SEC. 6.0 FOR SWITCHES. 


210 - RESTART ADDRESS. THE RESTART ADDRESS pees THE USER WITH 
AN TO 3, STRAIGHT 7. apt al PART 7 * Rags 


Ma {5 SWITCH OPTION (SW WHICH 
ALLOWS THE USER 10° INHI HE REWRITE OF RANDOM PATTERNS ON ALL 
DRIVES, ON RESTART. SEE SEC- 6.9. 
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4.0 


%.3 
W304 


4.1.2 


4.1.3 


%.i.% 
‘1.3 


%.2 

1.2.3 
4.2. 
4.2.3 


4.3 


PROGRAM CONTROL MODES AND OPERATOR ACTION 
PAPER TAPE LOADING 

a, CHAIN MODE 

ACTLI 


PAPER TAPE LOADING | 
LOAD PROGRAM INTO MEMORY USING STANDARD PROCEDURE FOR ABSOLUTE 


ee FARR HG PINGS 1 ESPERO OER MA POP 
THESE nes IS OFF. PUT DRIVES THAT ARE NOT TO BE TESTED ON 


LOAD ADDRESS 200 
SET SWITCHES IF DESIRED (SEE SEC 6.0) AND PRESS START 
THE PROGRAM IDENTIFIES ITSELF 

MAINDEC-11-DZRKH-G 

RK11/RKOS PERFORMANCE EXERCISER 

THEN IT PROCEEDS TO TEST THE DRIVES. 


RKDP DUMP MODE 

THE PROGRAM IS LOADED BY THE RKDP MONITOR. 

SET SA=200. SELECT ANY Sk. TCHES YOU WANT AND PRESS START. 
THE PROGRAM IDENTIFIES ITSELF AND PRINTS OUT: 


'TO TEST DRIVE 'N’ HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT 
WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAM’ 


IN RESPONSE TO THIS MESSAGE, PERFORM THE ACTIONS REQUESTED IF THE 
DRIVE ON WHICH THE RXDP PACK IS MOUNTED IS TO BE TESTED. 
RKDP CHAIN MODE , 


THE PROGRAM IS CHAIN LOADED FROM RKDP PACK ON DRIVE ‘N’. AFTER 
IDENTIFYING ITSELF, THE FOLLOWING MESSAGE APPEARS: 


"DRIVE ’N’ NOT TESTED’ 
DRIVE 'N’ WILL NOT BE TESTED SINCE THE RKDP PACK IS ON THAT DRIVE. 


a“ 
. 


G 
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4.4 


s.0 


6.0 


ACT11 MODE 


THE PROGRAM IS LOADED BY THE ACT11 MONITOR. AFTER IDENTIFYING 
ITSELF. ASCERTAINS THE NUMBER OF DRIVES PRESENT AND PROCEEDS TO 
TEST EACH OF THEM AS BEFORE. 


DRIVE SELECTION 


PUT ALL THE DRIVES THAT ARE TO BE EXERCISED AND TESTED ON RUN’ 
WRITE ENABLE THEM. MAKE SURE THAT THE "WRT PROT’ IS OFF. THE 
PROGRAM RECOGNIZES THAT THESE DRIVES ARE ON LINE AND PROCEEDS TO 
TEST THEM. . RKOSF DRIVES WILL HAVE THE NET TER F TYPED AFTER THE 


IF A FATAL ERROR OCCURS ON A DRIVE WHILE THE PROGRAM IS RUNNING 
THE DRIVE IS ae ee DESELECTED (’DSELCT’) AND DROPPED FROM 
THE DRIVE SELECTION LIST. 


SWITCH OPTIONS 
F THE PROGRAM IS BEING RUN ON A eh OMS PROCESSOR (I.E. AN 
1/34) THE PROGRAM WILL DETERMINE THAT T on a TCH 
REGISTER IS NOT wget a WI A ’SOFT wi SWITCH ec at 
SWITCH (8). 


THE SETTINGS OF THE ’SOFTWARE’ SWITCHES ARE HROUGH A 
KEYBOARD re: CH a BY TYPING A_’CONTROL G’.- THE 
a ont eer ae THE ’ G’ WHENEVER THE PROGRAM ENTERS 
ye one at ag A NEW eae THE 7. a 
VALS, PUTEPED GG OFT OMEN IN Response 

’SWR = NNNNNN NEW =’ 
EACH TIME TBE ENTERED SETTING " rere THE ENTIRE QUIRED: "RUBOUT 


AND CONTROL” FUNCT ONS MAY UiaY Be Gens OF fo” CORREE HURTING © 


GIS S LOCATED A rae 176 


o ahs 


DURING SWITCH ENTRY. PROCESSORS Ut cet, vet SUITCH 
REGISTERS, THE ’” sutTcu REG MAY "Be USED. IF THE 
PROGRAM ALL 16 SWITCHES IN THE ‘UP’ POSITION, ALL SWITCH 
REGISTER REFERENCES WILL BE TO THE SOFTWARE’ REGISTER AND THE 
PROCEDURES DESCRIBED MUST BE FOLLOWED. 

SW<15>= HALT ON ERROR 

SW<19>= INHIBIT ERROR PRINTOU 

SW<1e>= TYPE OUT THE ERROR HISTORY 

SW<11>= DUMP OUT ALL RK11 REGISTERS 

SW< 10>=1 RING BELL ON ERROR 

SW< 09> = LOOP ON SPECIFIC ERROR 

SW< 08> =1 DUMP OUT T ER DATA AND ERROR STATISTICS 

SW<06>= SELECT BUS ADDRESS LIMITS FOR DATA TRANSFERS 

SW<05>=1 T BEF ING THE NEXT SET OF DS 

(04 >= DO NOT REWRITE T 


SW E. DISKS ON 210 RETSART 
SW<03>=1 TYPE OUT EL D TIME AT ERROR 
SW<02>=1 DROP DRIVE AFTER MAXIMUM 
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SW<01>=1 TYPE SERIAL NUMBER OF ERRORING DRIVE 
SW<00>=1 TYPE ONLY ELAPSED TIME IF SW<08> AND SW<O03> = 1 


6.1 SW<15> 


THE PROGRAM HALTS ON ENCOUNTERING AN ERROR. AFTER TYPING OUT THE 
ERROR MESSAGE AND PERTINENT INFORMATION. PRESSING “CONTINUE” 
RESTORES NORMAL OPERATION OF THE PROGRAM. 


6.2 SW«1ld> 
THIS SWITCH al ey ALL ERROR MESSAGES. NORMALLY USED WHEN 
LOOPING ON ERROR (SW 9). 

6.3 SW<le> 


IF THIS SWITCH IS SET WHEN AN ERROR OCCURS, INFORMATION ABOUT THE 
HISTORY OF THAT ERROR IS TYPED OUT. 


THE FUNCTION THAT WAS BEING PERFORMED ON THE RK11 IS TYPED OUT. 
THE FUNCTION BE EITHER 8 READ, WRITE E) WRITE CH CHECK. READ 
: HES NORMAL FUNCTI CONTROL 
RESET. DRIVE RESET OR POSITIONING OF OF THE traps CSPEKING)” FOR THE 
ADDRESS. BUS ADDRESS AND WORD 

ARE ALSO GIVEN. FOR DRIVE RESET AND 
WHICH THE OPERATION WAS BEING 


OR 
; TYPED OUT ABOUT THE FUNCTION THAT WAS DONE 


SIMILAR INFORMATION 
JUST VING THE E 


I 
BEFORE THE ONE G 
5.4  SW«1l> 


IF THIS SWITCH IS SET WHEN AN ERROR OCCURS, THE CONTENTS OF ALL 
RK11 REGISTERS ARE TYPED OUT. 


6.5 SwW<09> 
THIS SWITCH PROVIDES THE TIGHTEST her SCOPE LOOP. LOOPING IS 
DONE N AN ERROR OCCURS. NOT 


WHE T THERE ARE TWO CLASSES OF 
ERRORS AND HENCE TWO CLASSES OF "TOPs REFER TO SEC 8.0 FOR 
THE DIFFERNECE IN THE ERROR LOOPS PROVIDED BY SW 9 


6.6 SW<08> 


WHEN THIS SWITCH IS THE ERR TRANSFER DATA STATISTICS 
WHICH HAVE BEEN C cAELEETED UNTIL OR ARNO OME TIME, ARE TYPED OUT. 


TRANSFER DATA STATISTICS GIVE THE MEER OF WORDS WRITTEN 


THE 
BE Ree cn ae "nlend Tw Esa Be 


THE ERROR STATISTICS GIVE THE NUMBER OF ERRORS THAT HAVE OCCURRED 


Ul 
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6.7 


6.8 


E.9 


(IF ANY) IN THE FOLLOWING CATEGORIES, ON THE DRIVES THAT ARE 


SEEK ERROR 
SEEK INCOMPLETE 
Siu - WHEN AN OCCURS THE FUNCT 
i THE ERROR RSISTS THE 
T IS INCREMENTED FOR THAT DRIVE. 
SW< 06> 


BUS SUEUR LS EA? SESLAME Mti Unt al BIE" 


LIMIT 


cman BY Pee ill AE te Sh Retr ACT | NER a 
Sa ae RTE oF rap ip ie mi meh re 


TYPE OCTAL BUS ADDRESS FOR DATA XFER, BETWEEN XXXXXX AND YYYYYYY 


LO LIMIT? 
HI LIMIT? 


BAERS YB ROM MOE HL AULCDY RUE POR Bly 


THE X AND Y RANGE THE QUESTION IS ASKED AGAIN 


BES TEAR, ha Rt GRRE ET 


REGARDLESS OF ke ete RONGFERS OE TAKING PLACE. 
WILL wet TO mel Ihe RS TO CERTAIN MEMORY BLOCKS 


REAPPEAR FOR OTHER ONES. 
SW<0S> 


Nie SWITCH PROVIDES at E Uoer A pone ae tae nie TO HALT THE PROGRAM AT 

KNOWN POINT. CURRENT SET OF EIGHT 
COMMANDS IN THE QUEUE HAVE BEEN EXECUTED. THE "HALT" IS LOCATED 
AT THE BEGINNING OF THE’ THe, PROGR ly FORE A a OF 8 
NEW COMMANDS IS GENERATED. AFTER T CUTION 
CAN BE RESUMED BY PRESSING CONTINUE, OR THE PROGRAR’ CAN BE STARTED 
BACK AT 200 OR RESTARTED AT 210. 


SW< 04> 


JOl 
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CONSURING REDRLTE OF ALL THE Dlac® MEN the prOoRBW Is RESrawtED 


~ 210. THIS SWITCH RESTARTING THE 


bet Pee oui haba a 


RE IS ALSO SKI I TO 


Caan HA bene HY TERS dB PFOG SHES PINE STD AbURA I 
GAkestAkr, He Rratstice colt ecTED So FAR ARE SAVED. 


st ane ALLOWS THE ELAPSED TIME AT WHICH 
PROURAR vile aff GoStE Er at Us FANT, Me TE BEER 
SW< 02> 


THIS SWITCH CAUSES DRIVES WHICH EXCEED A MAXIMUM NUMBE 


Se onEE IRE BN REM al EMESIS Nd 


HYG BODEN USED EEO AMG EAs YOR 


EACH ERROR MESSAGE FOR ‘HAT DRIVE. 
SW< 00> 


IF SW<O8> ANC SW< T. SETTI otis: SWITCH TYPES OUT THE 
ELAPSED TIME Fone Sta be FHE 


¢ 
< 
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7.0 


EXERCISER PROGRAM 
THE ne ee eR PROG et a dt 9 yen ATE A DISK OPERATING SYSTEM 
(FUNCTIONS) USING RANDOMLY 


SECT SPE Aint a Brosh, Svem bPrin 
DRIVES. ee a HOUR ON ible RK11/RKOS SYSTEM (BASED ON 2 


cian HT Joes OR pr 6, HI AT A hee (seers) ne UT PUT IN 
Se ke eg av eg gy 


Me ea” SOE inl 


oe IF aa TS _ANY alte 
FOUND THE 












1S 
WHICH H HAS ALREADY reba 


iF ey oe on not 
rat HAPPEN IF 
THERE I REMAINI 


IN OR THE 
ae oe ee ne), THEN 


er ayes 


THE ABOVE ALGORITHH HELPS SIMULATE A REAL ENVIRONMENT AT THE SAME 
TIME MAXIMISING THE RATE OF DATA . THE ISER PROGRAM 
GIVES AN T TY. STATE OF THE 
PROGRAM Is agONT INU NUOSLY YS, FLAGS 

HAVE BEEN EXPLAINED IN DETAIL AT THE BEGINING 


TLE: on “HAGE OED FEDER OU BERGETD OVE 


SEEKS WILL NOT INTEFER WITH THE HEAD 
POSITIONING f Loic 


USING“ RANOOR GENERATOR. THE FUNCTION YO BE PERFORMED [5 
SELE READ, WRITE CHECK 


CTED RANDOMLY FROM ONE OF THE FOUR: WRITE 

OR READ CHECK DRIVE R Is SSERECTED ERO RON T THE BVAILABLE 
DRIVES. THE DISK SS IS SELE 

THE COUNT AND ADDRESS SARE SELECTED RENOOMLY IN SUCH A Ln 
THAT A NON-EXISTENT MEMORY ERROR OR OVERRUN CONDITION DOES NOT 


RANDOM DATA BLOCKS ARE WRITTEN ON /* OISK. THE FIRST WORD OF 
EACH SECTOR BLOCK IS A NUMBER (e’S COMPLEMENT) INDICATING THE 
TOTAL NUMBER OF WORDS WRITTEN IN THAT SECTOR. HE 
WORDS IN THE BLOCK ARE GENERATED USING THE DISK ADDRESS (OF THAT 
SECTOR) AS THE RANDOM SEED NUMBER. 
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8.0 


9.0 


10.6 


LOOPING CAPABILITIES: 
SHITCH 9 GIVES LOOPING CAPABILITIES, ON ERROR. THERE ARE TWO 


A. ERRORS OCCURING IN THE NON-EXERCISER PART OF THE PROGRAM 
(ERROR NUMBERS UNDER 100 IN THE ERROR ITEMS TABLE) 


B. ERRORS OCCURING IN THE EXERCISER PART OF THE PROGRAM (ERROR 
NUMBERS STARTING FROM 100 AND UP IN THE ERROR ITEMS TABLE) 


sad Fest Sore at nitand in ory oe Pte acd ore o 
i iue Cea ee ER Ma Wattle 
D. ee LOOPS: WHEN en oe ne AL ae it 
RE SOUR Cea COE Lee Fa 1 PAU 


ONWARDS , LL THE POINT OF 
LOCPING PROVIDES THE OBER MGT AC A CAPABILITY TO RECREATE A SET 
OF EVENTS THAT LED TO THE ERROR. 


TRANSFER DATA LOGGING 


IN THIS PROGRAM, WHENEVER A DATA TRANSFER TAKES PLACE IT IS LOGGED 
Sa cli cir th RECS Hane RE ES OE 
THE aySTEN. AT ANY GIVEN T THE UgeR CAN ger THE se TRANSFER 
STATISTICS BY SETTING SWITCH 8 TO 1 (SEE SEC.6. Mn THIS IS 
HELPFUL FOR EVALUATING A SYSTEM. 


ERROR LOGGING 


THROUGHOUT THE EXERCISER PROGRAM, WHEN AN ERROR OCCURS IT IS 
LOGGED. THE FOLLOWING CLASSES OF ERRORS ARE LOGGED FOR EACH DRIVE 
IN THE SYSTEM: 

CHECK SUM ERROR 

WRITE CHECK ERROR 

DATA COMPARISON ERROR 

HARD ERRORS 


SEEK ERROR 
SEEK_INCOMPLETE ERROR 
ABORTS 


THE ERROR ULE ye: CAN BE OBTAINED BY PUTTING SWITCH 8 TO 

THE ERROR ST TASTER Coe CAN BE USED IN dal BPS WITH DATA TRANSFER 
STATISTICS 10 GIVE AN IDEA OF THE SYSTE (NU 

WORDS TRANSFERRED PER oe CSE FREQUENCY, RECOVERABLE VERSUS 
NON-RECOVERABLE ERRORS ETC.). 


——— ee ee —_—— oo - — 
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11.0 ERROR REPORTING AND RECOVERY 


WREDEMAT ION. "fle ORES nbkistEns REPORTED Ph VRE ERROR RESEAGES 


sae CELE Ney Mall ee och 


WHERE LOca ATED. HE USER IS ADVISED. TO MEEFERENCE 
THIS LOCATION IN THE PISTINGS, IN "hse MORE INFORMATION ABOUT THE 
ERROR IS DESIRED. 


SOME (SYSTEM) ERRORS REFER TO SOFTWARE FLAGS AND KEYS WHICH ARE 
USED TO MONITOR THE ONGOING ACTIVITIES ON THE SYSTEM. THESE FLAGS 
ARE EXPLAINED AT THE BEGINING OF THE LISTINGS AND SOULD BE 
REFERRED TO, IF THE NEED ARISES. 


IF Q A FATAL ERROR CONDITION 1§ DET DETECTED (LIKE DRIVE UNSAFE, WRITE 
DRIVE IS REMOVED FROM 


bar Ere ear BS bates pon FURTHER TESTING, 


, REFER TO THE ’” bseLeT’ ROUTINES IN THE 

IF THE ERROR 

CONDITION ROITION FAILS TO "CoRREET One Tee 5 A: DIF ENT ERROR OCCURS THE 
FUNCT NTED Y. EACH 


ION PRI ONLY. ONCE FOR 
ERROR. APTER PR EIGHT "ABORTS S Re RECORDED ON A DRIVE THE DRIVE IS 
DROPPED. DUAL DENSITY DRIVES ARE ALWAYS DROPPED IN PAIRS. 
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12.0 SUBROUTINES AND HANDLERS 
THERE ARE TWO WAYS IN WHICH MOST OF THE SUBROUTINES USED IN THIS 
PROGRAM ARE CALLED: 


1. THROUGH THE NORMAL JSR CALL 
JSR REG, SUBROUTINE 
THROGH THE ’ TRAP’ tS RUT TeN Ma TRAP oe Batines WITH +1 


2. 

LOWER BYTE onee Gccuns FO THe TINES. _WHEN T 
*TRAP’ IS EXECUTED A T TRAP VEC CTOR AND THE T 
DECODER IS ENTERED. THe TRA eae Ae. WILL PICK UP THE 
LOWER arte OF * TRAP’ ON ARO USE TT TO. INDEX THROUGH 
THE TRAP TABLE (StRAPAD) “Fon te TARTING ADDRESS OF THE DESIRED 
ROUTINE. THEN USING THE BaTAINED IT WILL GO TO THE 
DESIRED ROUTINE. 

3. SSCOPE - THE SCOPE HANDLER 

THE SCOPE HANDLER IS THROUGH THE EXECUTION OF THE ’IOT’ 


INSTRUCTION. IT PS TRACK. OF VARIOUS 8 ald FLAGS AND 
DECIDES IF LOOPING IS TO BE DONE ON ERROR (SW 9). IT SHOULD BE 
e he THAT THIS HANDLER IS USED Y IN THE NON-EXERCISER PART 


THE_ERROR HANDLER THE EXECUTION OF THE ’EMT’ 
NSTRUCTION. erro ott "OF THE ent pen, IS ENCODED T0 


I 
GIVE AN OO NTIFIER 19 T HUS ’ERROR 1’ IS 104001 
ETC. CIDES “if! RY ACTION 15 TO BE TAKEN 


DEPENDING ON THE surTcH TE TING (LIKE, HALT ON ERROR, INHIBIT 
ERROR TYPEOUT, ETC.). 


MOST OF THE SUB ee eo Oe mt IN iy LATTER PART OF THE PROGRAM. 
CROSS REFERENCE _ AT THE 


THE USER CAN REFER 
END OF THE LISTINGS OR TABLE OF CONTENTS AT THE BEGINI 
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588 WT H=11-DZRKHG, RK11-RKOS PERFORMANCE EXERCISER 

589 IGHT (C) 1973.19 

590 jOIGrTAL OUTPNENT CORP 

31 ; aH eenss. 01754 

533 pales BY JIM KAPADIA 

595 -*THIS PROGRAM ING THE POP = MAINDEC SYSMAC 

:s Poe Mie ne BOT 

— 

59g ORGE T, TOM - MARCH 1976 

33 SW ae rae 

600 SB TL RATI ITCH INGS 

502 * # SWITCH USE 

602 e | esseeme #3838}  SSeESESESEEaECeseer= 

604 * 15 HALT ON 

605 :% 14 LOOP ON 

606 : le TYPE of ROR HISTORY 

£07 -# 10 aR 

608 i 3 L Ta 

6093 i 8 TYPE QUT TRANSFER DATA STATISTICS 

610 * 6 CT LIMITS FOR DISK DATA TRANSFERS 

611 - i S HALT BEF OF ) 

bie i : bo NOT R ON RESTART AT 210 

614 : 2 , oRoe oer ON THIS DRIVE 

615 : I TYPE, SER ING DRIVE 

516 i 0 IF 1, ONLY TYPE 

bt : ll OUMP OUT’ ALL RKI1 REGISTERS ON ERROR 

6:9 

620 % YOU ARE ADVISED TO READ THE DOCUMENT FOR THIS PROGRAM. 


a 
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001100 


a) 


a eaneeee 


8B 
58 


.SBTTL BASIC DEFINITIONS 
itacKs 11 aa OF THE STACK POINTER ### 1100 ### 
36 C NITION 
_ -BEFINITION OF SCOPE CALL 


‘eauv. GRT,Ennoe 


LENT SCEL) SOUS DEFINITIONS 






t= 11 3 
LF= 1s ge 
RFs 2 + a RETURN-LINE FEED 
oo 
: = iat 
BIRO. —- EQS REGISTER 
x= TCH REG 
DDISP= Bt REGISTER 
, SGENERAL 
Ri= 
Re= 
R3= 
RYx 
-#PRIORITY LEVEL DEFINITIONS 
beo- ;;PR TY LeveL 0 
PRi= ::PR TY 1 
PRe= > PR TY LEVEL 2 
PR3= : PRIORITY 3 
PRY= : sPRIORITY 4 
PRS= - PRIORITY 5 
PR= : sPRIORITY 6 
PR7 - :PRIORITY LEVEL 7 


STER” SWITCH DEFINITIONS 


eerrrr. 
Sa ao 
— he — 2 od 
ia SBSBS8° 
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677 000010 = 10 
678 009004 > ’ 
é = 
Pad 3p000i 
681 “EQUIV 
682 “EQUIV : 
683 7 QU Vv , 
684 “EQUIV : 
68S “EQUIV ; 
686 “EQUIV : 
697 EQUIV : 
688 EQUIV : 
689 ; Qu V : 
rs oe 
692 -¥DATA BIT DEFINITIONS (BITOO TO BIT1S) 
693 109000 BITiS= 1 
a4 040000 Birt 
59¢ g20000 Tig: 
6% 910000 Tle= 1 
697 904000 Tll= 
698 002000 T 
699 001000 T l 
700 000400 I 
701 000200 = 
702 000100 l 
703 000040 
704 000020 T 
705 000010 BIT l 
706 000004 BIT0e= 4 
707 ooo000e2 : T0l= 2 
708 000001 T I 
709 -EQUIV 81703,B179 
710 -EQUIV B1T08,B81T 
711 -EQUIV BITO7, 
712 “EQUIV : Tb 
713 -EQUIV ; 
714 -EQU Vv *BITY 
715 “EQUIV BIT03,BIT3 
716 -EQUIV BIT 8 T2 
717 -EQUIV I ol. Tl 
7i8 -EQUIV 81T00,81TO 
720 “CPU” TRAP VECTOR SSES 
721 000004 3 4 “ me One ant AND OTHER ERRORS 
722 000010 RESVEC= 10 : RES AND ILLEGAL INSTRUCTIONS 
3 500014 eters 14 + TRACE. TRAP 
725 000014 BPTVECe 14 : BREAKPOINT TRAP (BPT) 
ee. 000020 sOTVeK= +5 ANT /STPUT TRAP (IOT) ##SCOPEs# 
728 p00036 NTVEC= 30 ; | EMULATOR TRAP (EMT) **ERROR## 
736 000060 TKVEC= 60 :: TTY KEYBOARD VECTOR 
731 000064 TPVEC= 64 :: TTY PRINTER VECTOR ; 
722 000240 PIRQVEC=240 ::PROGRAM INTERRUPT REQUEST VECTOR 
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NSSELERTERE SEM 


as 


000100 


000220 


000220 


003376 


001253 
003376 


_ 
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BASIC DEFINITIONS 
KWL VEC=100 


BUTS: Fe 


BIT13, SCP 


;KWLiL CLOCK VECTOR 


sate aT ONS FROM 4 - 776 CONTAIN A “.+2,HALT™ 
roe AE CES ADROIDAE be vecron 
DISPREG: | P ;; SOFTWARE DISPLAY REGISTER 


SWREG: ;; SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 
JMP aeSTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 


.=210 ; RESTART SS, IF RESTART IS 

INCB FRSTRT AT 210, CONDIT oe 

JMP a¥START ‘TESTS (TST1-7) ARE SKIPPED. IF 
: THE DISKS ARE NOT REWRITTEN 
3f WITH RANDOM PATTERNS. NORAMALLY 


;ALL 2 DISKS PRESENT ARE COMPLETELY 
:WRITTEN WITH RANDOM PATTERNS, AT THE 
;BEGINING OF THE 

SEXERCISER PART OF THE PROGRAM. 


-SBTTL ACT11 HOOKS 
i ere eeennsemnnneneenseensenanansenseerenrene 


HOOKS REQUIRED BY AC 
SSVPC= -SAVE PC 
SENDAD :;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SECP 
W 0 :;2)SET LOC.S2 TO ZERO 
. =$SVPC -; RESTORE PC 
KT 1 REGISTER DEFINITIONS 
"SATTL MEMORY MANAGEMENT DEFINITIONS 


& 


wo 


t. 


» & 
BB 


uF 
0 
[a 


BRO REGR CR Se eR SOR 


@accacaco;ww ama 
bb b= bs be b= bo bo bo Bo 
WO NOUI Wr OO 


BORER PORSS 


SRB ReRee 


eee 


B44 


m 


“Or 
o-- 
Pee 


i7e 
172376 
155376 


= 
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;#KT11 VECTOR ADDRESS 


MMVEC= 250 
-#KT11 STATUS REGISTER ADDRESSES 
SRO= i7rere 
Res 
SR3= 77ers 
-#KERNEL “I PAGE DESCRIPTOR REGISTERS 
oe i7eane 
= 
KIpDRe= 178394 
Kipp 17en3 
KI 17231 
KI 17231 
KIPOR6= 172314 
KIPOR7= 172316 


;#KERNEL “D™ PAGE DESCRIPTOR REGISTERS 


Pmt he Fe poe bw pee Ge Rae 


ie 





;#KERNEL “I™ PAGE ADDRESS REGISTERS 


fe oe oe a oo oo er oS 
BAAR OAD 


PAGE ADDRESS REGISTERS 


3 


He 





par re a Ne 
” 


age 


ne 


~, — 
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PRKHG.P11 | 25-APR-7? 10:18 COMMON TAGS 

evs .SBTTL COMMON TAGS 
847 22 SEREESARESAAAARRARARARAAARA RASA RAAAAALAAAAARALARARAAAALAERAAA FLEES 
348 -#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
a3 -#USED IN THE PROGRAM. ; 
gl 001100 .2=1100 

001100 SCMTAG: ;;START OF COMMON TAGS 
853 901100 ooo000 SPAS: - WORD 0 ; CONTAINS Pass cou . 

oC as . « ¢¢ 
Bee 001103 stare: BE OO 1 ONT AINE _ 
se 001108 SICNT: .WORD : ss CONTAINS SUBTEST PTERATION. COUNT 
aga Botte St EERE: “HORE 0 + EONTAINE SE Ope ERRORS 
g59 001116 000900 SERTTL: . WORD :  contalne TOTAL DETECTED 
861 Sortie 001 ot Tene: BYTE 1 1 EONTAL MAX. EST 
362 001116 ooo000 SERRPC: .WORD 0 conatne PC OF LAST ERROR INSTRUCTION 

‘ . os ’ , 
Bea BOLise SepPDR: “WORD OO iT EONTAING ABDRESE OF ’BAD’ DATA 
865 001124 S$GDDAT: .WORD 0 -sCONTAINS ’GOOD’ DATA 
B66 001126 SBDDAT: .WORD 0 -:CONTAINS ’BAD’ DATA 
of is pri » sRESERVED--NOT TO BE USED 
869 001134 T .BYTE O s sAUTOMATIC MODE INDICATOR 
g70 001135 SINTAG: .BYTE : :: INTERRUPT MODE INDICATOR 
872 001140 SUR: .WORD ODSWR ; ADDRESS OF SWITCH REGISTER 
873 001 14e DISPLAY: | WORD ODISP : AOD SS OF DISPLAY REGISTER 
875 B01 146 SKB: 179862 -: TTY fe BUFFER 
876 001150 $TPS: 177564 >: TTY PRI STATUS REG. ADDRESS 
877 001152 STPB8: 177566 -: TTY PRI BUFFER REG. ADDRESS 
878 001154 S$NULL: .8YTE O --CONTAINS NULL CHARACTER FOR FILLS 
879 001155 SFILLS: .BYTE e2 -:CONTAINS ® OF FILLER CHARACTERS REQUIRED 
880 001156 Ham : -BYTE le -<] FILL CHARS. AFTER A “LINE FEED” 
881 001157 STPFLG: .BYTE 0 -.0 INAL AVAILABLE” FLAG (BIT<O7>=0=YES) 
882 001160 o00000 SREGAD: .WORD 0 -:CONTAINS THE ADDRESS FROM 
883 -:WHICH (SREGO) WAS OBTAINED 
884 001162 oo0000 S$REGD: .WORD 0 i § CONTAINS ( (§REGAD) +0) 
88S 001164 oO00000 SREG1: .WORD OO -:CONTAINS ((SREGAD)+2) 
886 O01166 999000 Ge: .WORD 0 -: CONTAINS ((SREGAD) +4) 
987 001170 : .WORD O -: CONTAINS (($REGAD) +6) 
888 001172 op0000 G4: .WORD 0 ::CONTAINS (($REGAD)+10) 
889 001174 dOO0000 GS: .WORD 0 :;CONTAINS (($REGAD)+12) 
890 001176 909000 Ge: WORD O -: CONTAINS ((S$REGAD)+14) 
891 001200 : .WORD O -: CONTAINS ((S$REGAD)+16) 
892 O0le0e oo00000 SREGIO: .WORD 0 - CONTAINS ((S$REGAD) +20) 
993 oo 12% 999000 SESCAPE: 0 ; ESCAPE ON ERROR ADDRESS 
oa 1206 1 000377 LL: .ASCIZ ‘207><377><377> ;;C OR BELL 
Cris Oicle me SOUS: -ASCIT af i 5 Ua TION xX 

= «15> i 

Bg Bpista noob? Hee Rects «12> - sLINE Pee 
398 +s LELEEEEEEELE REESE ERER EL SRE ERRE EERE SR RARE RE RREARA RESALE SAREE LR 
299 901216 177400 RKDS: . 177400 
900 O0l2e20 177402 RKER: .WORD 177402 
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901 OO1222 177404 RKCS: .WORD 177404 

902 001224 177406 RKWC: .WORD 177406 

303 O01 17741 = 17741 

304 001 Feat RK ; 17741 

305 17741 17741 

306 177546 KWL 177546 ;STATUS REGISTER FOR KWLIL 

308 001236 000372 PCNTR: .WORD 250. 

310 000220 .WORD 220 ‘NORMAL RK11 INTERRUPT VECTOR ADDRESS 

311 o01e4%2 ond222 RKSTAT: .WORD 222 ‘PS TO BE USED ON INTERRUPT 

313 001244 oD0e40 PPRLVL: .WORD 240 ; PROGRAM PRIOR TY LEVEL=S. PRIORITY LEVEL 
aie RI THIS L ATION. a So 
316 001246 000340 KWPLVL: .WORD 340 Bait ve 3 oe HE KWIiL CLOCK SERVICE 
918 

919 901250 177777 SRORV: .WORD 177777 CONTAINS THE DRIVE NO WHOOSE SERIAL 
920 e: oe To e TYPED OUT AN ERROR OCCURS, 
921 TF Sid T SRDRVIS -{ SERIAL NO 
922 iG ROT” Toute BECBUSE 1 ERROR WAS NOT 
363 ROT VELY ATTRIBUTABLE TO A SPECIFIC DRIVE. 
925 

926 001252 900 FTITLE: .BYTE 0 

927 001253 900 FRSTRT: .BYTE 20 -FLAG FOR RESTART AT 210 


_ 
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THIS TABLE CONTAINS (IN ASCENOING ORDER) THE DRIVE NUMBERS THAT ARE 

:CON BTN 1 1 PORE miilghies tath BRE ORE LIPPER BIT OF ERCH "PDR’ BYTE TE SET IF THE 

CORRE Eo DRIVE. = 
001254 oco010 POR:  .BLKB 10 
001264 ooc00c DRVPRS: .WORD 0 -CONTAINS TOTAL NUMBER OF DRIVES PRESENT 

:THE FOLLOWING LOCATIONS CONTAIN SERIAL NUMBERS CORRESPONDING TO EACH 

DRIVE. I RS ARE KEYED IN BY THE USER, WHEN THE PROGRAM 

ARTED WITH SWITCH 1 SET TO 1. THIS FEATURE IS’ NORFALLY IN 
; : ENVI NT. 

001266 oo0010 SRNO: .BLKW 10 ;SERIAL NO’S FOR DRIVES 0-7 





cee an OH BIFFERENT DRIVES. "hich Key 1s ASSOCIATED i TTh an AN EXECUTABLE 


: Sore ra VARIOUS BITS OF THE KEY DESCRIBE A C 


;<0-2> DRIVE neal ON WHICH THE COMMAND IS TO BE EXECUTED 
: THAT _THE ARE BEING/OR HAVE BEEN 


I 
(IT IS NOT SET 


A FUNCT N 
: HG IS BNI RE o-cey rou 
:C1D Peunttion: CORRESPONDING TO THIS KEY HAS 


poy PRIORITY FOR THE COMMAND - creed 


{Ns Rent hay KEY HAS BEEN 


{ALSO SET WEN CORPRIND 15 ABORTED AFTER RETRIES) 


001306 900010 KEY: -BLKW 16 sKEY FOR THE COMMANDS IN QUEUE 


a LER Ses 


ACE ---KEY8) ARE USED TO POINT 
TO THE RIGHT SET OF PARAME 


; OTR INe pe TO BE_USED 
; RKCS (FUNCTION BITS ONLY) 

: RKWC (WORD COUNT 2°S COMP) 
; WODR 4 CONTAINS RKBA 










PRE R Soul sano mUe the Dee COTE SS SRA CR LOO IR CCS ae 


= 


WL. 
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DZRKHG COMMON TAGS 


Ti 


001326 o00040 CMND: .BLKW 40 ;STORAGE TABLE 


AAG Eu BH" the CO hep seubt rYOntRG Hef BES be The'rUke POH at 


‘DRIVE IS SET. BITS 0-3 THE OFFSET TO KEY & WHICH MADE THE DF 


BURY. Abick lig Ree Note t 


THE 
OFFSET FOR KEYS (TAKING KEY AS | KEY f= OFFSET <O-: /2 +1 
001426 00010 BUSY: .BLKB 10 : BUSY oe: FOR DRIVES 0-7 


; THESE FLAGS WHEN SET INDICATE THAT A DRIVE IS BEING 
‘POSITIONED OR HAS ALREADY BEEN POSITIONED. 


SESTSER-S ERIS ESS 





‘ 001436 O00010 POS: -BLKB 10 sDRIVE 0 POSITIONED 

l On AY COUNTS FOR A PARTICULAR FUNCTION ON A DRIVE THE FUNCTION IS ABORTED 
i ON A DRIVE WHEN THE RETRY COUNT REACHES 3. 

: 001446 O00010 mui -BLKB 10 sDRIVES 0-7 RERTY COUNTS 

l 001456 000000 WCFLG: .WORD O -IF BIT S SET WRIT 

! - SM a Cao Rea 

Bi peril 

rk 001460 o00000 QSCNT: .WORD O IS A es ef KEEPING TRACK y+; THE TIME 

ie 18 —_ oN TO 0 AN Oe OE hROR 1S REP IS REPORTED 

1016 

1017 OO1%6e Od00000 PRSFNC: .WORD 0 SEIN uy. 3 PRESENT COMMAND 

l 8 be Ras 

20 001464 QO00000 PSTFNC: .WORD 0 aa PERF ORMED 
r.8 

te 

1023 001 000000 CICNT: .WORD 0 s THIS IS A COUNT-TIMER USED FOR ey TRACK 
1024 001470 900000 CICNTI1: .WORD 0 THE TIME TAKEN BY ANY FUNCTION TO BE 

i0ee COMPLETED. IF THE COUNT GOES TO 0 AN ERROR IS REPORTED. 
l 001472 ooo000 TIMER: .WORD O 

1028 001474 900000 ERCODE: .WORD 0 

1029 001476 9000000 TR: .WORD O 

i 001500 900000 DRVCNT: .WORD 0 

103e¢ 

1033 001502 oo0000 QORV: .WORD O - TEMPORARY REGISTERS USED BY *GENSRO* 

1034 001504 900000 Q@CYL: .WORD O ROUTINE TO STORE VARIOUS PARAMETERS 

1035 O01S0&6 o00000 QSUR: .WORD O : OF Q@ COMMAND AS THEY ARE GENERATED. 

l 90 1 rE 000% Gee: pre 9 

1 6151 NC: F ‘ 

l 501514 ‘ QBUSAD: . WORD 

1038 001516 o00000 QWRCNT: .WORD 0 
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1040 
1041 
1042 


i 


EF 


RpReRRPRaRaRRaRReesE 


aot 
ISERE 
—-OwoonN 


001562 


001602 


00 1622 





000010 


000010 


500010 


PMS ERO RUB APE RE OP HE 


panap: -WORD ee MAPPING rere fa FOR eee RANDOM ORIVE NUMBER 
pase ef Reels Pt Batt 
wcnaP: “WORD faa FACTOR FOR BoD 


: THESE TWO FLAGS CORRESPOND TO THE 2 INTERRUPT HANDLERS (RK11) USED 
IN THI A WHEN THE INTERRUPT HANDLER IS ENTERED THE FLAG IS 


INTFLG: .BYTE 
INTIFL: .BYTE 


0 
0 
mr 8B 8 
A 


ne Piet 


sFOR ‘INTHND ’, CLEARED ON ENTERING HANDLER 
‘FOR 'INTISK’, SET ON ENTERING HANDLER 


chia Ane ge 







SREACHES THE 
{TESTING AND IS SMe AC BRIVE SELECTION TABLE 

ERDRV: .BLKB 10 sCOUNT FOR DRIVES 0-7 

onthe > Oo COUNT M , 

KuaEN: ORDO care Nes 2S COL ETENT 
KWCOUNT: .WORD O sCOUNTS CPS FROM KWI1L (2°S COMPLMNT) 


; THIS T CONTAI ON A eared AR DRIVE. 
; ihe WILL COMTRIN THE 70 TOTAL HRUMBER OF HARD HAT OCCURED ON 


HECN: .BLKW 10 sDRIVE 0-7 HARD ERROR COUNTS 
- THIS ree CONTAINS COUNTS FOR SEEK ERRORS 

-ON A ICULAR DRIVE. 

SKECN: .BLKW 10 sDRIVE 0-7 SEEK ERROR COUNTS 
‘ THIS Mie CONTAINS COUNTS FOR SIN ERRORS ON A 

. Ic DRIVE 

SINCN: .BLKB 10 -DRIVE 0-7 SIN COUNTS 


; THIS T CONTAINS COUNTS FOR WRITE CHECK ERRORS 
; THAT OC 0 ON A PARTICULAR DRIVE 


-—— > >< b= 6 — & = b> bo bP 9 pe 


c 
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036 001632 090010 WCECN: .BLKW 10 ;WCE COUNT FOR DRIVES 0-7 
THIS ONTA FOR CHECK SUM ERROR THAT 

fe SAGER SONEFIE.CRN RL 

ide 001652 Oo00010 ane .BLKW 10 :CSE COUNT FOR DRIVES 0-7 

104 

10s - THIS TABLE CONTAINS COUNT OF NUMBER OF FUNCTIONS 

107 STH WER Greta ON ONLY See R DING. Mes RTES 

103 001672 900010 ABORT: .BLKW 10 ;ABORT COUNT FOR DRIVES 0-7 

11 -COUNTS FOR NUMBER OF DATA ERRORS THAT OCCURED ON INDIVIDUAL DRIVES. 

113 001712 oo0010 DATER: .BLKW 10 :DRIVES 0-7 


MOe 
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TION COUNT- THE 
BE 
AN 





HIGHEST BUS ADDRESS TO WHICH DATA TRANSFERS 


an 
ier 


THE LOWEST BUS ADDRESS STARTING WHICH DATA TRANSFERS 


opp ed 
EN 
VING 
ON 
TO PQRAMETERS FOR COMMANDS IN QUEUE 


eA gl a 
pa ra 
a ee 


i 


HARD EROR/ 


(15><12>/ABORTED/< 15>< 12> 


Sze Ssh SSSKRSES SSS Boe. “a 
: CH OM OH OO OH CHER OH SHOR Oe ~ ~ - 9 , - xe 
28827832 a aZy 5 ¥ as 
eee S as“x 85 & ° x 2 
© me 
[0 oo SO 92800 Oo Vinay 5 = ee & aa 
wm ww ~ 
4 NNN SON NN NN NN 
= Ms Pet Pt 
br or ty 
S82 882 Sseseses § 8 2 S fee BEB EE Bee 
Ss SS Ss wa. fee . . 7 . YW .” Om oe . © . * © . Sage’ ae 
we pon = freee es 8 « 
x 3 2 : S ; 8 ee e6 ee ae ° ee oe es mines 
22 S we S Gees 2B Be g 


saare. : Bz 


os aa - 

zozeusz £8 

a 
Bee beg Seeeeeee agggeee gas gar 
na ee 
SSS SSsSsSssssssss 


ZL LO RANI GREASE GOS BS FYFE PPS PS RANT RRARASSVIS BLS 


i et ee tee Dee ee eee hee hee Dee eee ame oe Ke hae oe Kee ham kee, ote, aoe Fee Rae, Lae oe ee ee ee ee ee | 
Te ee Ree Ree Ree Ree Rene ee Ree Ree Ree ee hee Kee Dee heme hee hee hem hem 
lt ee Ieee ee Ree ee ee bee hee eee oe hem eee Rae be eee Roe ko | ee ee ee ee ee ee ee ee ee re ee ee ee ee re ae De ee Nee ee Ree Ree Ce Ree Ree ee been ee 


O4ONi2 O47502 MSGI10: 


041440 O4S510 MSGS: 
042105 005015 
e505 
31 





_— . _—- — — —-— = 
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BoabAcOBRINS BKASRKDS TRREQRNANCE EXER: TEON TAGS |) SOCtONG)  OB-JUN often 
ib ae it MSGI4: .ASCIZ <15><12>/NO DRVS PRSNT/ 


015 i ie MSG1S: .ASCIZ <15><12>/DRVE # DIDN’T INTERUPT AFTER / 
1 


OB II otal y one 


rs 

Gre 
Nos Bogses 

: 


OSYSOS MSG16: .ASCIZ <15)><12>/KEY-8 BUSY-7/ 


K 


/ SR NO/ 
(15><12>/7 DROPPED DRIVE # / 





LASCIZ <15><12>/DRIVE/ 
j “/’ 
"ASCIZ <15><12>/DRIVE WRDS WRITN WRDS READ CSE WCE DATERR HE 


R 
~~ 
uw 
pene 
2 
ee 
bas 
eee 


= 
a’ 


pacers brabe bea tn tsteotn ts babeteee ba tohe tt bobs 
BRSRRESHLSSRSRREBR 


2 
z 
3 


at 
a 
a 


ee 


: .ASCIZ ¢15)<12>/DRIVE SKE ABORT SIN/ 


| 


0251 


E40) 
Rin 


Pitot 
5 
Roe 
an 


SP 


-ASCIZ <15><12>/7UNABLE TO CLEAR ERROR AFTER THREE TRIES/ 


on 
£ui 
e 
“I 
— 
on 
=O 
Neo 
: 


a 
Arron 


aur 
we 
bt bb he he be 


SSSRRR=E 


RR 
~ 
rT 


MSG28: .ASCIZ <15><12>/ERROR CONDITION CLEARED ON RETRY & / 


ee 
ay) 
stat ti 


ps bb te bt pb 
tena 
to. 
od 
at 
oo 
feet eee 


rurururururorurururu 
WOnNCOULCUITUeO 
RES —wunL fee 
A 
= 
— 
R 


O 

R ee A mh be pe 
— 

wi 
SR 
<= 

ro 

<= 

2 

ru 
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RSSRS 
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RRRRSE 
7 


MSG29: .ASCIZ <15><12>/TIME / 
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OZRKHG.P11 ° 25-APR-77 10:18 COMMON 
1226 002662 040 BLNKS3: .ASCII / / 
l2e7 002663 040 BLNKSe: ASC ss 
1228 O02664 900040 BLNKSI: . sf 
1229 “EVEN 


~, 
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DZRKHG.P11 2S5-APR-77 10:18 ERROR POINTER T 
i or THAT CAN — 


1230 .SBTTL ERROR POINTER TABLE 

Hid PER Neonat 10 ais ra ga, 

les ATION $IT ES ion t M IN IS PERTINENT. 

INOTEL: i es Pea Ine Rie ee a emai 

ie : 8 Ae 1 Ng Ba ae 
DF 


POINTS TQ : 
POINTS TO T BATA FORMAT 












a oalonen NUMBERS BELOW 100 
XERCI T OF THE PROGRAM - ERROR NUMBERS ESUAL 


CONTAINS ottore INFORMATION ON THESE. 
IN THE EXERCISER PART OF THE PROGRAM. 


1 
1 RKDA 
12eS7 O0e67e O3e4ee OT1 he. SREGL © SREG SREG2 SREG3 


0 
1260 sITen @ 

leb2 002676 027650 EMe sATTEMPT TO INITIATE FUNCTION ON “BUSY” DRIVE 
031776 ie ;PC OR 

032436 OT ; SERRPC 


- ITEM 


m ww © 
= 
Gd 


sCONTROL READY NOT SET = sais 
“SERRPC SREGO SREG1 SREG2 SREG3 


m s [oy 
oe 


= 


e's ye yi NOT SET 
RKER RKDS RKDA 
 SERRPC SREGO S$REG1 SREG2 S$REG3 


S 
8 
Sz 


- ITEM 


m um OO 


an 


;CONTROL READY NOT a AFTER FIRST INTERRUPT ON ISSUING SEEK 
; PC RKDS RKOA 
:SERRPC SREGO SREGL $REG2 SREG3 


ges ; 
ies 
= 
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OZRKHG.P 11 2S5-APR-77 1 
1 002734 000000 
se 
1288 
1289 
1290 
ie ee ss 
1293 bos742 O3e4ee 
1298 002744 
1295 
12% 

1297 

ics 002746 hes 
ie fee Bice 
1301 002754 000000 
1302 

1303 

iz ) 
ie A Be 
1307 O0e76e 032436 
1308 002764 000000 
1309 

1310 

1311 

i3le O0e766 030237 
1313 002770 031730 
1314 O0277e O3e4ee 
1315 002774 900000 
1316 

1317 

1318 

1319 002776 030317 
1320 003000 931730 
1321 003002 O3e4ee 
i322 003004 900000 
1323 

13e4 

1325 

1326 003006 71 
1327 003010 031730 
13e8 O0301le O3e4ee 
13e9 002014 d00000 
1330 

1331 

1332 

1333 003016 O30444 
1334 003020 031730 
1335 003022 O3e4e2e 
1336 0030e4% 000000 
1337 

1338 

1339 

1340 030517 
i341 003030 031730 


: ITEM 


- ITEM 


- ITEM 


- ITEM 


: ITEM 


- ITEM 


- ITEM 


- ITEM 
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ERROR POINTER TABLE 


0 


—- © N OOOMm oO 
oO +t =z =e 
~j — 


; BERR’ OR SET AFTER 
>SERRPC SREGO SREGI 


aia BITS IN ea EXPECT SEEK 


'SEenec Shed SMEG SRbE2 | SAECG 


eer a CLEAR ON INTERRUPTING DRIVE 
:SERRPC SREG 


tpt ORIVE, FLAG FOR INTERRUPTING DRIVE CLEAR 
:SERRPC SREGO 


FIRST INTERRUPT ON ISSUING SEEK 
RK RKDA 
SREG2 S$REG3 


; SCP SET AFTER FIRST — ON OF aes SEEK 
: SERRPC SREGO SREG1 SREG2 S$REG3 


T ADY NOT SET AFTER SEEK DONE INTERRUPT 
er RKes RKER RKDS RKOR 
-SERRPC SREGO SREGI SREG2  SREG3 


s INTERRUPTING DRIVE (SEEK DONE) WAS NOT ‘BUSY’ 
: RKC K RKDA 
-SERRPC SREGO SREGI 


SREG2 SREG3 


:RAW/S wait NOT m3 FOR INTERRUPTING DRIVE (SEEK DONE) 
;PC KCS RKER RKDS RKOA 
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DZRKHG.P11  25-APR-77 10:18 ERROR POINTER TABLE 
1342 903032 032422 OT! -GERRPC SREGO SREGL SREG2  S$REG3 

1343 34 oo0c000 0 

1344 

1345 :ITEM 16 

1347 003036 030603 EM16 ;’SIN’ ERROR 

1348 003040 031730 OH! : PC RKCS RKER RKDS RK 

1349 003042 B3>430 orl -SERRPC SREGO SRECL SREG2 BAECS 

1350 009000 

1352 -ITEM 17 

i3e4 M17 RR’'OR ON DOI EK 

132¢ a ec RKCS py RKDS §_ RKDA 

1356 003052 OT] -SERRPC SREGO SREG2 S$REG3 

1357 003054 0 

1358 

12. -ITEM 20 

132 SUSE ISEB 35 Bt Bee O1D ees ae tps RKO 

1363 903062 032422 OT! -SERRPC SREGO SREGI SREG2 S$REG2 

1364 003064 o00000 0 

1365 

1366 -ITEM 21 

1368 003066 030706 EM21 § ;SOFT ERROR 

1368 903070 032013 DHe 1 ; SERRPC RKCS RKER  RKDS RKDA: OVS 
1371 003072 o32444 OT21  Sepeec Srec0 Sec! $REG2 SREG2 
1372 : SREGY GS  S$REGE 

1373 003074 ooD000 0 

1374 

1375 -ITEM 22 

1? goao7s goon 

1378 003100 932013 DH2 1 RKER RKDS RKDA: ORVS 
1300 003192 o32444 OT21 oe She SREG2 $REG2 
1381 sSERREC ie shece 

1382 0023104 900000 0 

1383 

13g -ITEM 23 

1386 003106 030720 M23 ;DATA (COMPARISON) ERROR 

1387 003110 032110 BAS? RKBA | EXPCT RECVD RKDA 

1388 OO3lle O3e422 OT  SERRPC GREGO S$REG! SREG2 S$REG3 

1389 003114 900000 0 

1390 

133) sITEM 24 

1393 003116 030747 EM24 ; CONTROL READY CLEAR ON INTERRUPT AFTER RK FUNCTION 
1304 003120 031730 DH! RK RKDA 

1395 003122 O3e422 OT]  SERRPC GREGO SREGL S$REG2 S$REG3 

1396 093124 oocccd 0 
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- 1 TEM 


- ITEM 


- ITEM 


- ITEM 


- ITEM 


- ITEM 


- ITEM 


- ITEM 
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ERROR POINTER TABLE 


es 


Dues 
OTeS 
0 


26 


;PC RKCS RKER RKDS RKDA ORIVE # 
;SERRPC SREGO SREG1 SREG2 SREG3 SREGY 


;STUCK IN LOOP, 8 Q- SHOULD BE DONE BY NOW 


COMMANDS 
iSEerec Shfco SREG1 © SREG2  SREGS 


sATTEMPT TO DO WRITE OE CK BEF One WRITE 
.- KEY FUNCTION C 
;PC SREGO SREGI 


; ATTEMPT TO REEXECUTE A COMMAND IN PROGRESS OR ALREADY FINISHED 
-SERRPC $REGO 


; SFUNCTION IN PROGRESS’ FLAG FOR INTERRUPTING DRIVE IS NOT SET 
SERRPC $REGO 


sUNEXPECTED DRIVE INTERRUPTED 
;PC EXPCT RECVD 


;SERRPC SREGO SREG1 


-WRONG FUNCTION CODE IN RKCS AFTER INTERRUPT 
-PC XPCT CVO 
» SERRPC GO Gl 


*DRIVE READY CLEAR 
Pe RKCS DS RKDA 
-SERRPC $REGO SREG! SREG2 SREG3 


re. 
ae 
—_ 

' 


z 
é 


o— b= bb bb B= bo be bb = 
Pina 
£ 


SSSEEESEERLEE 


1473 


> => 
wr 
er 
[al 


003234 


& 


030720 
032110 


031615 


apRa?? 10:1 


~~ 
. 


a 
06-JUN-77 


RE ORMANCE EXERCISER MACY11 30(1046) 14:55 PAGE 3e 
ERROR POINTER TABLE 
-ITEM 3S 
D 
BA i BRIVE as LOW ER RKDS = RK 
OT! : SERRPC SREGO GREG! S$REG2 SREG 
-ITEM 36 
EM36  ;DRIVE UNSAFE 
OH1 :PC RKCS RKER  RKDS  RKDA 
DTI : SE SREG! S$REG2 S$REG3 
:ITEM 37 
AD Be RKCS. RKER «RKDS. RK 
DTI : SERRPC SRECO SRECI SREG2 SAEC3 


2 
-*THE FOLLOWING ERRORS OCCUR IN THE NON-EXERCISER PART OF THE PROGRAM. 


- ITEM 


- ITEM 


- ITEM 


- ITEM 


- ITEM 


109 


;DATA (COMPARISON) ERROR 
C RKBA EXPCT RECVD RKDA 
 SERRPC SREGO SREG! SREG2  SREG3 


» RK 
:p 


; INTERRUPT DID NOT OCCUR AFTER WRITE 
RKCS RKER RKOS RKDA 


: PC 

*SERRPC SREGO SREG1 SREG2  SREG3 
; ERROR SET 

:PC RKCS RKER RKOS RKDA 
;GERRPC SREGO SREG1 SREG2 SREG3 


A EN _—? 
SERRPC SREGO SREG1 


*RKBA INCREMENTED WRONGLY 


ee ee ee 


UU UU 


b+ b= b> be be Bp 
OO NCU CWT 


+ b= P= P= b= b= B= b= bo Fo B= Bb be be bb bo BP bo bo be Be fe 


PAAR ALAA al AL A 


003320 
003322 
003324 


003364 


032265 


- ITEM 


- ITEM 


- ITEM 


- ITEM 


;PC EXPCT RECVOD 
:SERRPC SREGO  SREG! 


-RKWC DID NOT OVERFLOW TO O 
-SERRPC $REGO S$REG1 


TS. INCORRECT 
Pe. “ aes — Ri R RKDS RKDA 
Revere SRECO SREG! SREG2  SREG3 


sDATA (COMPARISON) ERROR ON READ 
: PC EXPCT CVD 
;SERRPC S$REGO Gl 


s;WRITE CHECK ERROR 
:PC RKCS 


ER RKBA_  RKDA 
*SERRPC SREGO SREG1 SREGE  SREG3 
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1 ee ea Ee 


003440 
Oo344e2 
003444 
CO3444 
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175614 


;IF POWER FAILED, ON RETURN OF POWER ENTER HERE. 


PSTRT: YRee Pelt?" IYO LCRPEE HAT rhe STATISTICS HAVE 


;T0 BE SAVED, ON RETRN FROM PWR FAIL. 


STeive DRIVES TIME sais IF PROGRAM WA WAS CE FRR TED BY APT 





a0 
L ‘SELECT UNIT O 
MOV #250, RO “WAIT FOR.. 
20$: BIT #200, RKOS i) READY 
ROL ‘OF RPT 
be RI i START, ut. 
RO oni 
ssi BAT ” -RKDS BIT 7 (DRIVE READY) NEVER SET. 
S 
TT TIAL c 
‘seiTh, & a ESRNON Tats CSCRTAG) ARE® 
MOV HER LOCATION TO BE CLEARED 
oe ( fe CLEAR MEMCRY LOCATION 
oe” Re Leesa OOP BACK IF NO 
puree! a , is! ' EP TUP THE STACK POINTER 
2 @BIOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE 
NOV ileven 7 VECTOR FOR TRAP CALLS 
HOV ¢ ; POWER FAILURE VECTOR 
HOV + INI Al 1zE THE LOOP ADDRESS FOR SCOPE 
ss wo F OR IT IS 
a We THARE SWITCH REGISTER. 
ey it Fem ae 
NOY i TUP FOR A Hy SWICH REGISTER 
MOV ; AND A HeROUAE ISPLAY REGISTER 
SNE ey IF NO TIMEOUT TRAP OCCURRED 
BR 65S i BRANCH TF) — ""~ 
64S: Nov #65, (SP) T UP FOR TRAP RETURN 
655: MOV BSWREG eee TO SOFTWARE SWR 
MOV #01 REG D DISPLAY 
665: MOV (SP)+,08ERRVEC ;;RESTORE ERROR VECTOR 


BQsJA-DZRKHG, BKIASRKOS PERFORMANCE EXERCISER. Decl 6) pein 14:55 PAGE 35 
1597 003632 023737 oO0042 OO0D4 CMP 6s a2, 0846 ARE Me IN ACTA, AUTOMATIC MODE” 


Re eaeneapccate SHE Phage Uhocnn 1 rest pass 


ie Bese eer nore Ree eh ete Sra 


ie .SBTTL 3 VALUE FOR SOF THARE “ No UNDER 100 AC” 


tebe Sheed broke, COONS 
l nee rae 001140 000176 a SHR, #SWREG bash le REG SELECTED’ 
t SETTINGS 
1610 003674 O00403 BR 70S 
1611 003676 112737 000001 001134 698: MOVB #1, SAUTOB ~— AUTO-MODE INDICATOR 
1613 003704 000433 a 67S T OVER THE ASCIZ 
ere j5G6S: .ASCIZ <CRLF>#RK11/RKOS EEF ORMANCE EXERC ISER#< 15> < 12> #MAINDEC-11-DZRKH-G#<CRLF 
1616 ree 012737 O26206 000030 "MOV SSERROR DBEMTVEC -EMT VECTOR FOR ERROR ROUTINE 
1617 OO4002 013737 001244 900032 MOV VL, J#EMTVEC+2 LEVEL § 
1618 OO4010 012737 OeesSSe 000100 HOV aSKWL VEC sku LiL CLock SERVICE 
1619 004016 013737 001246 000102 KWPLVL , d#KWLVEC+2 
1621 ING FINDS OUT CONTROL MODE: 
fe SSIES, SH BS 
l 
1 o04024 005037 002060 CLR XXDPMD ;CLEAR.* XXDP’ al, 080 DEVICE STORAGE 
1626 004030 122737 oO00002 ocoro4 MPB sé? 41 ; LOADED FROM AN RKOS ? 
1 004038 901160 Ste IF NOT 
1628 704040 01 o00040 002060 40, XXDPMD DEVICE INDICATOR AND ORIVE ADDRESS oF 
1630 OO4O46 122737 000010 002060 CMPB 0s 10, XXDPMD Pate ADDRESS ? 
1631 OO40S4 101002 BHI 
1632 OO40S6 105037 CLR XXDPMD : CHANGE mig ORIVE ZERO 
1633 004062 oo00042 25: TST He CHEN ACTI1 AUTO ACCEPT ” 
cee 3 pea tee 
1636 004074 13 BR vA + WER te ASCIZ 
1637 --72§: .ASCIZ <15>412>/NOT resting. DRIVE / 
1633 DOMID4 O0SO4G 1s: CLR CLEAR WORD ON STACK 
E40 Boat Se 113716 O02060 MOVE XXBPMO, (SP) EEF DRIVE abORESS 
1e42 OOM Obi IE L OMY. 1 CHARACTER 
1643 004135 000 "BYTE O SUPRESS LEAD NG ZEROS 
1644 004136 000520 BR Ste : GET DRIVES 
164s Dow 140 b0See7 177777 3S: INC 1 eee TIME THROUGH HERE ? 
164 ay ee 004154 74 ..T ‘fect STRING 
1648 tH boot BR +35 : = GET HE ASCIZ 
1649 jiZ4s: "ASCIZ <15><12>/TC TEST DRIVE / 
eet Baie o0SO46 . CLR -(SP) sCLEAR WORD ON THE STACK 
16 113716 o02060 MOVB § XXDPMD, (SP) ‘GET DRIVE ADDRESS 


Srenc. il 


8s 


: 


i | Ee 2 ee ae 
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ITCH REGISTER 
TYP : S 
Mm. 8 86©= Res 
oY 
a? ier oes sla 
ji70s: “ASCIZ / HALT PROGRAM, RE REPLACE 17/<15><12> 
re oes A AR 
54708: -ASCIZ /WITH A WORK pack’ CLEAR LOCATION 40, AND RESTART PROGRAM, 
STe: ON. RESET 
eth . ‘FIND WHICH DRIVE #’S ARE PRESENT 
CLR 
CLR -CLEAR DRIVES PRESENT TABLE 
CLR 
ny 
1S: MOV -SELECT A DRIVE 
BIT 15 IT IN SYSTEM? 
MOV {LOAD DRIVE ADDRESS INTO QDRV 
ORV. ‘RESET THE DRIVE 
TST XXDPMD {PROGRAM OADED FROM AN RKOS ? 
Q 2s -BR IF 
CHP — ae vee THIS RKOS ? 
2s: MOVE ,(R1)+ 
MOV Re (R3)¢ ;5TOR VEN ETT KEY TABLE 
INC : BUN MBER OF DRIVES COUNTER 
. 2 ae vate nee, 
cre . »RO : ‘Ee 
MOV Aa vPRS, R3 EIN Tare CORT VE S ARE TYPE F 
BEQ ST4 BR IF NOT DRIVES PRESENT 
MOV #PDR, R1 
CLR RD 
CLR 
TYPE MSG20 
4g: move {R1).Re -GET DRIVE NUMBER 
MOV Re, RO 
BLT a5 
TYPE  ,MSG24 
MOV R2,-(SP) -TYPE THE DRIVE NUMBER 
YPOS 
‘BYTE O 





LOS 


4:55 PAGE 37 


ORIVE NUMBER TO BITS 15,14,13 


lac 


; CLEAR "ONY EXTRANEOUS BITS 


;RESET THE DRIVE VIA GORV 


Del all 


;MAKE IT AN ODD DRIVE 


;MAKE IT AN EVEN DRIVE 
; SELECT THE NEW DRIVE 


IVE IS _IN SYSTEM 


E SURE DR 
IF NOT, SKIP THIS TEST 
sat ART A eon ue on. 0 


Hig I IT "TM BOTEON?? 


;sYES - SET THE F TYPE BIT 


;sWAIT FOR HEADS TO STOP 


MO-11-DZRKHG, RK11-RKOS PERFORMANCE EXERCISER MACY11 30(1046) O6-JUN-77 
DZRKHG.P11 | 25-APR-77 10:18 GET VALUE FOR SOFT SWITCH REGISTER 
1709 OO4S66 CLC 

iy 004570 ROR R2 

? 

i7ip Gers ROR Re 

1714 004600 BIC #17777,Re 

17] MOV R2, QORV 

1717 SOE TG ORV. RESET 

1719 12 IT ,R2 

1760 SOME LE BNE gg0000 

1722 004620 BIS #20000, Re 

1723 004624 BR b$ 

es 004626 cs: BIC #20000, R2 

t 004632 6S: MOV R2, IRKDA 

1728 004636 174352 BIT #200, JRKDS 

1729 004644 BEQ a 

1731 OO4646 174346 MOV #11, aRKCS 

1732 004654 ae CON. ROY si alate WAIT FOR 
ist Beh ou 

1736 OO4666 15271) o0020C BISB8 #200,(R1) 

173 004672 10440: 002375 TYPE  ,MSGeS 

1739 OO4G676 032777 OO0100 174312 7S: BIT #100, ARKDS 

1740 004704 001774 BEQ 7§ 

1742 O04 001253 gS: TSTB = FRSTRT 

1743 004712 601012 BNE 95 

1745 004714 ooo002 174216 BIT 8Swi , ISWR 

176 004 001406 BEG 9§ 
1748 004724 104401 002326 TYPE  ,MSG17 - TYPE 
1749 004730 104413 RDDEC : READ 
1750 004732 ASL RO 

1751 004734 012660 O01266 ,; MOV (SP)+, SRNO(RO) 

1753 OO4740 005201 QS: INC Ri 

1754 OO4742 005303 OEC R3 

1755 OO4744 003300 BGT ug 

1756 OO4746 {04401 001213 TYPE  ,$CRLF 


sSERIAL NO. SW SET? 
NO , 


“SR NO” 
FROM TTY INPUT 


*SAVE SERIAL NO FOR THE DRIVE 


MO3 
Sako: SEARS FETEMONCE ONZE, PP AR au MSIMEZTondn' = PME % 


17$7 ; *MAXBA’ Be Dane THe PEoR BUS ADDRESS (MEMORY) TO WHICH DATA TRANSFERS CAN 





fe NG THE FOLLOWING ALGORITHM: 

1761 1. 

1762 ia. a nO THe BB Neha TE RUN” UNDER XXDP THEN THE TOP 1.5 K IS RESERVED 
1764 B. AND OE GRA Fe'nOT RUMNTAG UNG xiop THEN THE TOP 320 WORDS 
1765 -ARE RE SO ERVED FOR 'MOM’,LOADER,ETC. AND THE "MAXBA’ IS COMPUTED (S$LSTAD-SOO). 
1767 -2. IF KTL1 IS PRE 

1768 :A. AND Abed i" MEMORY IS PRESENT, THEN THE MAXIMUM BUS ADDRESS 
1769 -1S$ 147776 so Taw 20K 

1770 -B, LESS, THAN fhe NT, THEN THE TOP 2K IS RESERVED FOR RKOP 
1771 : MONIT 

177e ‘FIGURE OUT THE peoeet 

1774 OO47S2 004737 017466 ST4 JSR : 

1775 004756 Ol2702 O020Se2 MOV ‘9 SHE Ie POINT TERS 

1776 OO04%7b2 Ole703 O020S4 MOV 

1777 OO4766 005737 017524 TST -KT11 AVAILABLE? 

ters Burrs AGS gur72 my ur Y BK OF rEROR 

1780 pane? | Hh1e40 CMP : MORE? 

1781 005004 O02012 BGE - YES 

1783 OOSO0& 162700 OO0040 SUB UP 2 K°S (RKDP MONITOR 

1784 OOSO0l2 O12701 177772 MOV FORM THE MAXIMUM ONS ADORESS 

1785 it. DATA TRANSFER 

1786 OOSO16 006300 1S: ASL RO 

1787 005020 o0S201 INC Ri 

1788 001375 BNE i$ 

1789 005024 162700 oD0002 SUB #2,RO 

1790 005030 oco4is 2$: BR 6g 

1792 005032 012713 147776 3S: MOV #147776,(R3) | ;FOR 28K OR MORE, THIS IS THE ‘MAXBA’ 
1733 005036 O00413 BR 7$ 

1795 OO0SO40 013700 017770 4g MOV SLSTAD, RO :KT11 NOT PRESENT, GET THE LAST 

1796 “AVAILABLE ADDRESS 

1798 OOSO44 005737 OOD0040 cs: TST ae40 :*XXDP’ LOADED PROGRAM ? 

1798 005050 001003 BNE 8S :YES 

1800 O0S50S2 162700 oo0SO00 SuB #500, RO -NO, SAVE THE LAST 320 WORDS 

1801 OOSOSE Oo00402 6S 

1802 005060 162700 O06000 8S: SUB #6000, RO ;SAVE THE LAST 1.5K OF MEMORY (RKDP 
1804 O0S064 010013 6S: MOV RO, (R3) ‘SAVE THE MAXIMUM BUS ADDRESS(MAXBA) TO 
1805 ‘WHICH DATA TRANSFER CAN BE DONE SAFELY 
1806 OOSO6 012712 032514 7S: MOV #PGEND, (R2) : *BASEBA’ 

1807 005072 000100 174040 BIT #SWO6, @ 

1808 005100 001510 BEQ ST3 

1803 005102 104401 005110 TYPE 65S i TYPE ASCIZ STRING 

1810 005106 BR 4§ T OVER THE ASCIZ 

1811 --65$: .ASCIZ <15><12>/TYPE oct” BUS ADDRESSES FOR DATA XFER, BETWEEN / 
1812 005174 64: 


MD-11-DZRKHG, RK11-RKOS PERFORMANCE EXERCISER MACY11 30(1046) O6-JUN-77 14:55 PAGE 39 


DZRKHG.P11 ° 25-APR-77 10:18 GET VALUE FOR SOFTWARE SWITCH REGISTER 
{Eid eles hate? gle 
005206 Y 67S :; TYPE ASCIZ STRING 
1816 005204 000402 BR b6$ -:GET OVER THE ASCIZ 
pgs: -ASCIZ 7 8 


011346 5 MOV (R3),-(SP) . 'MAXBA’ 
104402 TYPOC 


dona? a ees LIGET OVER THE Aeci2 


-:69§: .ASCIZ <15><12>/L0 Limrt / 





Boe 0441 66S: T 
V 1+. RO 
tee? l CMP , (RE) -CORRECT LO LIMIT? 
1829 103762 BLO 
a ees CHF oe -CORRECT LO LIMIT? 
1 at l MOV , (R2) . 'BASEBA’ 
ion 104401 005266 _ TYPE 71 -TYPE ASCIZ STR 
1836 000407 BR 7 GET oven tue Ret iz 
--71$: .ASCIZ ><12>/HI LIMIT? 7 
1837 005304 OS: 
1838 O0S304 104412 RDOCT 
1839 005306 012600 MOV (SP)+.RO 
1840 905319 020013 CMP i) (R43) CORRECT HI LIMIT? 
1841 le 101362 BHI 
1842 005314 O200le CMP (R2) : CORRECT LO LIMIT? 
1843 005316 101760 BLOS igs 
1g 005320 010013 MOV (R3) - *MAXBA’ 
Bde 005322 023727 OO020S4Y 037476 ST3: CMP NAXBA, #37476 § _;8K MEMORY - CLOBBER XXDPT 
1847 005330 a : BGE Neh 
i 4 
1848 Shesss Sheree Oaracs OoedsH Ce. | (Rie nh BROcRan RESTARTED aT 210° 
1850 005344 Oo0140e BEQ 
1851 005346 000137 007772 IMP BE ReSR YES, SKIP TEST 1 T0 7 


Sauces Secs Tpsyeene UT BAe a Metis Pe 









ies THe BEGIN NG OF THE CONSTRAINED TESTS AIMED AT CHECKING THE 
{Bee 1306 001476 49 1. we ORI 10 a ay TIALIZE PTR TO DRV# 

1857 1264 001500 NOY : ORI SENT 

1858 174104 001502 NXTDRV: MOV : 1h 1p, he S =A3) 

1859 hagooe 001476 : 

1860 001500 C : OA ve 

1861 BPL PONE AO TEST THIS DRIVE 

1862 007772 IMP Tat DONE, GO TO EXERCISER PART 





MO-11-DZRKHG, RK11-RKOS PERFORMANCE EXER ISER 
D 2S-APR-77 10:18 Tl 


ZRKHG.P11 


1 


+£ 
~ 
o 


mt tet ids oe 


= 


ssl 


i 


001110 


032514 


‘ATEST l 


+71 


1§: 


eet 30( eaee 14; PAGE 41 
wRITE. OF oat WORDS (1 "SECTOR + 1 HOROS) 
ATesT Tee PERrORn MITE OF 401 WORDS CL SECTOR + 1 WORDS) 


(1 SECTOR + 1WORD) ANC 
DRRECTLY WRITING IS 


D 
PRMerER. THE VALIDITY 
TEST. 






‘DATA PATTERN WRI LLL111. 
. geecnnaagugeauadeecoussensenssensesessnsssstsssssesessesecceces 
MOV Ri :GET RKDA 
mA ea 
ADD : ‘EXPCTD RKDA AFTER WRITE IS DONE 


;RETURN ADDRESS FOR LUPING 








CON. RESET 
ea 
or ac a 3 Aer Behe N POLLING LOGIC 
JSR PC, DOWRITE 

Mocs RURAL Wa TER 
ERROR oe TT_IN RKCS SET ON DOING MRITE 
ERROR 1 ; RIGHT AFTER 
error | 1Gg 3 PR Pen 
BIT #10, A Sect 10,11 WRITTEN? 

BOB OCT RL bo USED NEXT (SEC 10) 

AOD Re PTD. "exe FT TER WRITE IS DONE 


MO-11-DZRKHG, RK11-RKOS PERFORMANCE EXERCISER 
2S-APR-77 10:18 Te 


OZRKHG. P11 


8 


eaeeaens 


—- + Pb bP > - bb bo pe 


OOO OWOODWwWwwW 
= = bb bo be he be be 
WOnNMUIcCU-O 


Mig quike Rete eee ticle eisai p ictal 


033516 


001164 
005720 


001110 


001164 


: ATE 


1$: 


33: 


4$: 


MACY11 30( 1046) 
READ & 


pret oe eeaD 6 CHECK 





° THIS TEST PERFORMS A READ 


pia ae 







cA eaeat ati 


UU" 
O6-JUN-77 14:55 PAGE 4 
CHECK THAT 401 WORD MRITE HAS DONE CORRECTLY 


E WAS DONE CORRECT 


Veen 
Ss Oe egos 





eepegsonetenasacess 
40, Woe tt 


gone RE A lant etal 


téT2: 


PC, CLEANBUF 
#1000,R3 
PC , DOREAD 


aes 


(Re) 


SC ERINF! 
100 


{BBORESS FOR LUPING ON EROR 


LEAN UP THE DATA BUFFER 
ry WHICH READ WILL 


j 
Saal ads 
oot 


F RKBA INCREMENTED RIGHT 
DID NOT INCREMENT RIGHT AFTER READ 






» INTO WHICH READ 


® 
= 
5 


sREPORT 12 ERORS AT MOST 
s INCREMENT POINTER 

‘CHECKED ALL 401 WORDS? 

; CHECK THAT REST OF 377 WORDS 
‘GET EXPCTD DATA WORD (0) 


:GET ERROR INFO 
;DA jee'yt IN A PREVIOUS 
He A_WRITE OF WORCS 


401 
1 SECTOR + 1 WORD) WAS DONE 


MD-11-DZRKHG, RK11-RKOS PERFORMANCE — 


OZRKHG.P11 


{486 


an 
13e1 
1962 
1963 
1964 
1965 
1966 005670 
1967 005672 
1 74 
136 76 
1970 005702 
005704 
00S7 
00S7 
00S7 


SEER EMRE 


ane 


PREGR SBE URR EOS 


005770 


2S-APR-77 10:18 


034514 


000010 
0000 1e 


Oooo 
— > 


eS 


ooo 


BoRBRe 
ata 


Cut 
MACY11 30(1046) O&8-JUN-77 14:55 PAGE 43 
READ & CHECK THAT 401 WORD WRITE WAS DONE CORRECTLY 


Reo TR hHE SECOND SEEM bs 


: THE FIRST WORD IS A NON-ZERO 
EO Aa HH HglgTe Brome 


: THE T WS. DONE CORR CTLY 
ad's Bi EEE 


INC RS sREPORT 12 ERORS AT MOST 
cs: TST (R2)+ sALL WORDS CHECKED? 
CMP R2, sOBUF +2000 
BNE 4§ -IF NOT GO BAK 
6S: BIT #10,R1 MERE SECTORS 10,11 READ 
BNE TST3 
ADD #12,R1 NEW RKDA, SEC 10 
BR He BACK AND READ FROM SECS 10,11 
ERIM T NTRY 
: Re CHE TAINS SRRORING: BUS ADDRESS (WHERE DATA ERROR OCCURRED). 
:(R2) CONTAINS BAD DATA THAT WAS READ FROM DISK. 
*R1 CONTAINS DISK SS WHERE READ BEGAN. 
ERINF1: MOV R2, SREGO :GET BUS ADDRESS OF DATA ERROR 
HOV (Re: Ge ‘GET BAD DATA WORD (READ) 
CMP Re’ +776 sFIGURE OUT THE DISK ADDRESS 
BGT 1§ “WHERE DATA ERROR OCCURRED 
DEC (SP) 
1$: INC (SP) 
BIT 810, (SP) 
BEQ 2$ 
BIT #4, (SP) 
BEQ 2g 
ADD #4, (SP) 
2s: MOV (SP)+, SREG3 
RTS pe 


Te 
Al 
—_— 


SOUBBSRRORRORRDR GRE 


Bay 
0c ~4o”" 


caRaneREE 
ooceees Game ooh GRPenn 


SbaB RS 


cS 
& 


wr 
eo 
| oneal 


e 


‘HG, RK11-RKOS PERFORMANCE EXERCISER 
25-APR-77 10:18 T3 


032514 


FU 
MACY11 30(1046) O6-JUN-77 14:55 PAGE 44 
PERFORM WRITE OF 12 SECTORS + 1 WORD 


TES pus eee ecient OL Iey 


Bee me? Boal 
hed dit yea = 


ey 0). 
O-11, SURF SUR ACE SECTOR 
Han ssi nhabiebeeiemennts 
+473: SCOPE . , 
NOV st sr PERR oe BN Yeon TO ‘1’ 
AbD RL Re, 
MOV #6001 ,R3 
1$: CON. RESET 
ORV. RESET 
CON. RESET 


;PATTERN TO BE WRITTEN 






ISR PC, DOWRITE :GO DO WRITE 

ERROR 101 ; INTERUPT DID. NOT OCCUR ON 

J CHKCS ; COMPLETION OF wetTe N RKCS SET 

tie oe ol Th rus cet ON Bone wrt Te 

J PC CHKDA i 

E 103 DID NO th SO RRECTL 
ry WRITE OF OF 6001 (OCTAL) WORDS. 
:(12 SECT 

JSR PC, CHKWC “CHECK IF RKWC OVERFLOWED Too 

ERROR 1 -RKWC DID NOT OVERFLOW TO 0 

BIT Ri} WRITTEN ACE 

ee 

ADD SA ke 

MOV #5401, R23 :WORO COUNT 

BR i$ ‘GO WRITE SURFACE 1 


MD-11- eS RK11-RKOS PERFORMANCE i 
Pll 25-APR-77 10:18 


DOZRKHG. 
2039 


BRreuauunennans 


: 


RR SRORREEREB IS IIASA SORCE 


2594 


001110 


001164 


7 


i | 
» 


MACY11 30( 1046) 


READ & CHECK THAT 7001 WORD unite Was Bone CORRCTLY 


VTeST 4 REAQ 8 CHECK THAT GOOL WORD WRITE MAS CONE CORRCTL 


TEST 4 
Prev O08 


"Tiel bes 


"K THE 
leet 40 THE 
00) i HOR 1S WRITTEN 


snunnaj ety 2Ef03, Hee THe HRLTING, Ws Done COemetTLy. °°)" 


tary: 
ADD #13,R1 
. MOV 418, SLPERR 
; SRY: RESET 
CON. RESET 
ISR PC, CLEANBUF 
MOV #1000,R3 
JSR PC DOREAD 
ERROR 10] 
JSR PC CHKCS 
ERROR 10e 
MOV sDBUF , R4 
MOV : 
JSR PC’ CHKBA 
lk 
2s: CHP sent, (R2) 
MOV - SREGI 
JSR PC. ERIAF | 
ERROR 100 
INC RS 
BEG 6$ 
3S: TST (R2)+ 
CMP R2, sDBUF +1002 
BNE 2§ 
ug: TST (R2) 
BEG S$ 
CLR SREG! 
JSR PC ERINF1 
ERROR 100 


;GET DRIVE & 
: DISK ADDRESS FROM WHERE READ IS DONE 


SURFACE 0 


(2 SECS) 
NOT OCCUR AFTER 


CHECK. Ee OF - 

; HECK T IN RKCS SET 
) SET ON DOING READ 

‘STARTING BA OF DATA BUFER 


; INCREMENT POINTER TO BA 
;CHECKED 401 WORDS? 


;CHECK THAT THE REMAINING 377 

;HORDS OF THE LAST SECTOR (SEC #0) 

:WERE READ BACK AS O°S 

-DATA ERROR. 

iN THE PREV IOUS TEST, THE LAST SECTOR 
3 SECS + 1 WORD) 


THE DATA BLOCK (1 
SHOULD CONTAIN ONLY 1 (FIRST) "WORD 


T 377 WORDS ARE 


IF WRITE WAS DONE CORRECTLY 


1, ERKOS — EXERCISER 


HUY 


‘a O&-JUN-77 14:SS PAGE 46 
K THAT 6001 WORD WRITE WAS DONE CORRCTLY 


EP AER AL EN 
ine R ERE OT 2°PRORS ar MOST 


TST (R2)+ s INCREMENT POINTER 
Rg, SOBUF +2000 ; CHECKED ALL WORDS? 

BIT #20,R1 ‘DONE CHECKING FOR SURFACE 17 
TgTs ies 
#20,R1 SET UP FOR SURFACE 1 


BR 1$ GO BACK “5 READ SURFACE” ! 


? 


: 


-- > = b—- + <p @ - 


rurururururu frururururu Purorurururu 


mb &— eb b+ b= ~~ ps op 


roruru 
el ae 


ro reeeieee 
RESBH 


rurururururoru 
Tt ter 





SBR 


~DZRK ORMANC RCISER MACY11 30(1046) O6-JUN-77 14:55 PAGE 4 
j-Orees, es ee READ & CHECK THAT 6001 WORD WRITE WAS BONE CORRCTLY 
09 : DOWRI TE —_— 
t? ‘he tae Re OTIC Te Thee 1 Pactontalne. THe ult count 
12 'DBUF’ CONTAI S 
i THIN 
14 1S DONE IN INTERRUPT MODE. IF THE INTERRUPT DOES NOT OCCUR wI 
i SECU E BM HORE AAR ORIG LMS oth 
| 
i8 
19 006304 012777 oO4002 172710 en, MOV 84002, ARKCS iMALTE IBA 
st ve Gite trie ER Gy Agee PE ds Soo 
77 172676 G WC 
ieee Glee Bia eB) Ma ee aa ae 
SP 006344 006352 NOV 418, -(SP) : SET NeW PC TO STACK ##eeeeeE4% 
50 172642 1S: He 8101. ORKCS .SET IDE, GO (WRITE, IBA’ READ) 
- CNT1 
— 25: IN cignt sWAIT FOR INTERRUPT 
INC CICNT 
BNE 2§ 
36 c 
THR -TIMED OUT, INTERRUPT DID NOT OCCUR 
3 ate Bere , -RETURN TO THE EROR MEASGE 
33 
40 3S: CMP (SP)+, (SP)+ RESTORE STACK POIN 
2, (SP) :AD URN SS TO SKIP OVER 
42 epee OOS ME SAGE N ADRESS 





BORAASOBTYMS: BELARSGS TESIRRMANCE EXEREISES READ 2s al WRITE WAS BONE CORRCTLY 


sta THES RUT ANB REEG’ PRON Aue RES rhe Reho’ 18°10’ ee one ad cb CONTAINS ree BARS 
e145 “COUNT (RKWC). READ WILL BE DONE INTO DATA BUFFER A 

$18 A CeRTRI ne satan 13 Rabe 10” Tie ERWOR pessnePolLOuine THe wie 
2150 :TO Lad ont TM TER RROR OEcenee” — 
size 006424 012777 OO0004 172570 DOREAD: MOV #4, IRKCS : READ 

2153 006432 000727 BR DOXFER 

2155 

step CL EANG-OUT THE FER (ALL W WRITTEN TO 177777) INTO WHICH THE 
2158 ‘READ FROM THE ofeK UL BE DONE. OBR TA BUFFER S TS AT ’DBUF’AND IS 
e159 1000 (OCTAL) WbRBS LON LONG. 

2161 OO6434 Ol2702 177000 CLEANBUF:MOV —- #- 1000, Re SET COUNT 

2l62 OO644O 012705 032514 MOV #OBUF RS INITIALIZE BA 

2163 OO6444 012725 Oeeze2 1S: MOV we2e2e, (RS)+ 

2164 O064S0 O0Se02 INC Re ; DONE ALL WORDS? 

2165 ; BUFFER STARTING AT (PHYSICAL) BUS 

2166 } SS 177000 (177000-200776) 

2167 OO064S2 001374 BNE 1$ 

2168 O06454 000207 RTS pc -YES RETURN 


MD-11-OZRKHG, RK11-RKOS PERFORMANCE EXERCISER 
2S-APR-77 10:18 TS 


OZRKHG.P11 


SOVFR LOO SSBIRR PSH Sse oa PaaS 


rurururururororuru 
= bb bh eb 


Seana Sees 


RERRRRRNBS 
WOnNOuUILfWwrMre-O 


SSNS 


006616 


104106 


017772 


020204 


002000 


17eae0 
177S7e 


tats: 


KO4 
MACY11 30(1046) O6-JUN-77 14:55 PAGE 49 
CHECK DATA TRANSFER AROUND 32K BOUNDARY 


ATE i SS Le BROUND eK BOUNDARY BOUNDARY RHELRALLLALEY 


SRD Pe BUD ach DUE ate tert 


0 200776 1.E. (3eK-256) TO ( 
26006 ABE DR ARIE SOC OL ae 
pennies gata ERROR Oe REPOCTE ae aan cennasens 


on STBK, #2000 es OR MORE OF MEMORY? 

i a tere 1 NOT, DONT DO THIS TEST 
1S: OY HABBB’SRKTPaRe nae Se-SeK THRU PAR & 

MOV #1, J85RO : TURN ON MEMORY 


Sue Brg. seni TAAROLER 18° DONE BRO THe 3ek BOUNDARY FROM 


ADDRESS (PHYSICAL) 177000 TO 200776, (3eK-2S6) 10 (32+eS6) 
pare N £10 (060 FOR THE LAs all aaa STARTING FROM 1 FOR THE FIRST 
177000 TO 200776 (32eK-256 10 3eK+eS6) 


uss — acs, -LUP TO 2$ ON EROR (SW 9) 
Rey: RESET 
MOV #1,RO s INET Ue IZE DATA PATTERN TO BE 
MOV # Ri START PHYSICAL ADDRESS=177000 
3S: ROY RO CRIS are COUNT PATTERN (1 
RQ, #1001 + yr000 10 BPE PHYS: aOORE 
1 MOV QDRV, ARKDA cyl 0 
172436 8- 
i & pase poe 
CON.RDY WAIT FOR CNTROL RDY 
J PC, CHKCS : ANY IN RKCS? 
EBROR 102 "ERR? SET IN N_RKCS ON DOING A 
our oy gu apueesc"17 
(1; 0 BUS ADDRES 
ISR PC, CHKMEX 
: CHECK K THAT RKBR OVERFLOWED INTO 
EXTEN NEN. BIT (0) OF RKCS (BIT 4) 
‘CET RK 
ERROR 106 ‘REX RACs FRADE, DR, BIT 4 OF RKCS 


(MEX BIT 0) SHOULD HAVE SET 


SERKHG. 


2247 


BSRREE SRR AR Cita copa eca aun Guanes 


020230 


020112 


001110 


— ee iD —— eee wa 


4§: 


S$: 


MACY11 30(1046) 
CHECK DATA TRANSFER AROUND 


MOV #1000,R3 
MOV #177000. R4 
JSR PCC 
ERROR 104 
MOV Re 
ARR P f DA 
ERROR 103 
JSR PC, CHKWC 
ERROR 105 
MOV 84S, SLPERR 
CON. RESET 
ORV. RESET 
MOV #137000, R1 
CLR (R1)¢ 
CMP Ri, #141000 
BNE s 

V 

y PRR 
MOV #177000, aRKBA 
MOV #5, ARKCS 
CON. RDY 
ISR PC CHKCS 
ERROR 102 


O6-JUN-77 14:SS PAGE SO 
BOUNDARY 


3K 










ae Tone FROM Bus 


= ED CORRECTLY 


Be 2. ioe f DATA 


nee vs =." 
Slater ctalfe We ae 

SS (PHYSICAL) 177000 

aaa IF RKWC a y eieed 


:RKWC DID NOT eS 
‘DOING A WRITE OF 2 Ce cTORS PROM 
;BA = 177000 


tat bs WAITYEN 10 SEE IF it 


aa TO 4S ON EROR (SW 9) 


FER roe 
ifhe GurrER e SECTORS 


:WRITTEN PREVIOUSLY 


READ 3 SE Te petve CYL 0, SEC QO, O 
; INTO wis BUS ADDRESS 


;WAIT FOR CNTROL ROY 


TO 7300776) 


>A OF » 
-SUR O INTO De TA BUFFER te tARTING 
sat 1770000, _N NOTE AFTER 
INTO x k BITS 1 ee (TT 4 


5 DONE E RKB WILL WILL CONTAIN 1000 


MO-11-DZRKHG, RK11-RKOS PERFORMANCE EXERCISER 
Pll 2S-APR-77 10:18 TS 


OZRKHG. 


Boa ta oe oR oeae sae 


rath 


bs 
> 


pietetsiets 


roururu 


012705 
012702 


012701 
020112 
y 


177764 
137000 


000001 


001162 
001164 


6$: 


7$: 


MACY11 30(1046) O6-JUN-77 14:55 PAGE Sl 
CHECK DATA TRANSFER AROUND 32K BOUNDARY 


MOV 8-14, R5 


MOV #137000, R2 
MOV #1,R1 

ee R1, (R2) 
if 

INC RS 


MOV R1, SREGO 
MOV (Re), SREGI 
107 


Tok” pC F¥BDBO 


we 
CMP 94001 »R1 
BNE 7 


CLR aaSR0 


;AND BIT 4 OF RKCS (MEX) WILL BE SET. 


STeaT| ONLY l2 E 


co "OF B BUFFER 
fH DATA PATTERN 


;CORRECT DATA WORD RECVD? 
sREPORT THIS ERROR? 
;COUNT ERORS 

-GET EXPCTED DATA WORD 


GET DATA WORD RECVD 
: DATA ae ON DOING 8 —— 
THT 8 1h "PHYSICAL. A ADDRESS 





aus ADDRESS 
ERROR OCCURRED. 


EE HE 
; INCREMENT POINTER TO BA 
;CHECKED THE ENTIRE BUFFER? 


; RXOFF 
: TURN OFF MEMORY MANAGEMENT 


5 aly eee RKL1-RKOS PERFORMANCE EXERCISER MACY11 30(1046) O6-JUN-77 14:55 PAGE Se 


DZRKHG. P 25-APR-77 10:18 T6 CHECK DATA TRANSFER FROM 28K TO 32k 
sitq ete eft ae tm RERRAARAAAEAALAS 
2315 iam S FER LOCATED AT 
BE RUSTE eS T A Peat ote id NGUPEER Beek) fae Ts, 
a RSE." Padi AINE ke 
2320 ¥THE WRITE IS DONE STARTING AT CYLINDER 0, SECTOR 0, SURFACE 0. 
e3jel mananahiciatnitelteteeletsenstohedsuteticnbacebotacansashures 
2322 007040 oo0004 téTe: SCOPE 
5354 007042 023727 017772 001740 CMP STBK, #1740 § ;32K OR MORE OF MEMORY? 
5336 Apar3? | 007374 a TES S TEST 
2327 BO SHeE 012737 OO1600 172352 1S: MOV #1600 dak IPARS iAP 28-30K THRU PRS PAR S 
2328 007064 012737 000001 177572 MOV 1, a8SRO 
2330 “WRITE A COUNT PATTERN (1-10000) INTO DATA BUFFER (PHYSICAL ADDRESS 
2331 : 160000-177776). THIS DATA BUFFER WILL BE USED FOR WRITING ON THE DISK 
335 007072 012737 007100 001110 MOV 82S, SLPERR -LUP TO 2$ ON EROR 
2334 007100 104416 25: CON. RESET 
2335 007102 104420 DRV.RESET 
2336 007104 0 000001 MOV #1.RO s INITIALIZE DATA PATTERN To BE WRITTEN 
2337 007110 012701 120000 MOV #120000, R1 INITIALIZE BA (PA=1 
2338 007114 010021 3$ MOV RO, (R1)4 ‘WRITE COUNT PATTERNS (110000) 
2339 007116 INC INTO DATA BUFFER (PA 1 T 
2340 007120 010001 CMP , #10001 :177776, 28K-3eK) 
ost 007124 001373 BNE 
2343 007126 013777 001502 172074 MOV QDRV, ARKDA sWRITE ON SEC 0, CYL 0, SURI 
2344 34 012777 170000 172062 MOV -1 1 SRKNC :4K WORDS 
2345 007142 012777 160000 5 MOV #1 *FROM THIS BUS ADDRESS 
oab 012777 o00003 172044 83, aRKCS ‘WRITE, GO 
es48 007156 104417 CON. ROY -WAIT FOR CONTROL READY 
2350 007160 004737 020112 JSR PC. CHKCS N RKCS? 
2351 007164 104102 ERROR 10¢ MRR BIT SET IN RKCS ON DOING 
2352 "A WR 4K WORDS FROM 160000 
2353 (28K SEK) “DISK WRITE BEGAN ON 
3354 ‘SEC O, CYL O, SURO. IF ALL 4K 
2355 :WORDS WERE WRITTEN RKBA SHOULD OVERFLOW 
2356 *AND CONTAIN 0. BIT 4 OF RKCS 
2357 (MEX BIT) SHOULD BE 1 
2359 007166 004737 O20204 ISR PC, CHKMEX “CHECK IF RKBA OVERFLOWED AND MEX 
2360 ‘BITS (4) IN RKCS WAS SET. 
2361 007172 104106 ERROR 106 ‘MEX BIT 4 NOT SET AFTER OVERLFOW OF 
2362 -RKBA. WRITE OF 4K WORDS (28K-32K) WAS DONE. 
oC mr sRETURN HERE IF NO ERROR 
2365 907 174 012703 010000 MOV #10000,R3 : WORD COUNT 
2366 00 012704 169000 MOV #160000 RY :STARTING BUS ADDRESS 
2367 007204 004737 O20150 JSR PC CHKBA -CHECK IF RKBA INCREMENTED CORRECTLY 
2368 007210 104104 ERROR ba ‘RKBA DID NOT OVERFLOW TO AFTER A WRITE IF 4K 


OUD 
SNe USAT TERME ORGS ETH ES AHR Dati ha © 
;WORDS (160000 TO 177776) 















ete Nias ERROR io a OLD NEFLOL TOO 

: AFT 40 ITE OF Sik WORD (160000 
:T0 177776) 

e377 007220 012737 007226 901110 ~ NOV 4S, SLPERR sRETURN ADDRESS FOR LUPING 

2379 on7856 104420 SRY RESET 

538, 012701 120000 MOV #120000,R1 ;CLEAR THE DATA BUFFER BEFORE 

eae ee oan Ss: CLR ( De me ‘DOING A READ INTO Tf 

2384 S7Suy rae SNE $ 

a 0072% 013777 O01S02 171754 MOV ‘READ FROM SEC 0, SUR O, CYL O 

2387 007254 Ole777 170000 171742 MOV 8-1 RIC 4K 

39g O07eb2 012777 160000 MOV #1 : ‘INTO THIS BUS ADDRESS 

2390 007270 012777 OO000S 171724 MOV 8S, IRKCS : 60 

2391 007276 104417 CON. RDY :WAIT' FOR CNTROL ROY 

3s 004 020112 J CHKCS . N RKCS 

2394 Boo a04 104102 ERROR "6S : T IN RKCS ON DOING 

2335 ; OF 

3 007306 012705 177764 MOV #-14.R5 : AT MOST 

2398 007312 Ole702 120000 MOV #120000, R2 i$ TeRT! OF BUFFER 

200 f 007316 012701 000001 MOV #1,Ri SINITIALT DATA PATTERN 

2402 007322 112 6S: CMP RL, (R2) CORRECT DATA WORD? 

2403 007324 001413 BE 

2404 007326 010137 001162 MOV $REGO : 

e40S 007332 011237 001164 MOV (RO), SREG! : 

2406 007336 104107 ERROR : A READ OF 

2407 4K ING FROM SEC O 

Pa sC (160000- 

2410 007340 104421 O02214 TYPMSG 13 it BUS ADDRESS’ 

Eat 007344 004737 017774 ISR Pc, ‘ ICAL BUS ADDRESS 

2413 007350 INC RS : OCCURRED. Re CONTAINS 

Eat bs 007352 001406 BEQ ag : THE VIRTUAL ADDRESS 

2416 007354 062702 oD000e 7$: ADD #2, Re POINTER TO NEXT BA 

2417 007360 O00S5201 INC Ri “NEXT PATTERN 

2418 007362 O22701 o01000 CMP #1000,R1! ALL DONE? 

e413 007366 001355 BNE 6$ 

2421 007370 005037 177572 QS: CLR J#SRO sTURN OFF MEM MANAGEMENT 


LUS 
SERRMG II SELAPRSS? OSB TP” PERFORM THE LARGEST POSSIGLE DATA TRANSFER 







euee ee ee eT TORT THe LARGEST POSSIBLE DATA TRANSFER 
423  ATEST 1 Poss IBLE DATA T R 
O424 ; THIS TES re LARGE DATA TRANSFER POSSIBLE 
ee ‘WITHIN AVAILABLE 
1) IF KTL NT A WRITE OF 1 WORDS IS DONE ON 

2428 THe DISK | ASV IDEBY aK on HORE TS 
oa5e dF 11 T PRESENT THEN ALL BUT TOP 1.5K OF MEMORY WILL BE USED 
131 Fattitc FRkbP AGHTTOR) 
2433 -ALL DATA START NG AT BA ’PGEND’. 
2434 apeeere tr CTOR a CYLINDER 0, 
ne 
2437 DOING THE 'URITE’ A 'WRI ' IS DONE 
ae FEE est Uke Son Same. "BA Sar 
2440  LOHEEK ERROR TS REPORTED, 0 0 07 UO 
2441 007374 o00004 +417. OPE 
2442 007376 005737 017524 TST SKT11 ;MEMORY MANAGEMENT PRESENT? 
ens 007402 100004 BPL 1S iN. 
2445 OO7404 023727 017772 001540 CMP SLSTBK, #1540 Bie OR MORE? 
ei 007412 O02034 BGE 16K : YES 
2448 007414 013703 o020S4 1S: MOV R3 iF OUT THE oxi 
O449 1 032514 WPCEND 23 HAT CAN BE 
ed Haris Soa ae - 
2451 007426 006003 ROR R3 aan ’PGEND’ TO THE 
e453 007430 005001 CLR Rl 
2454 32 010346 MOV R3,-(SP) : PUT DIVIDEND ON STACK (LO) 
2455 007434 OOSO46 CLR -(§P) ; (HIGH PART ) 
2456 007436 012746 OO0400 MOV ~(SP) VISOR 
ee? oor 004737 OeS212 JSR pe ssp iV ‘g GO_TO D1viDE DE ROUTINE 

005726 TST (SP)+ INDER FROM STACK 
2459 007450 001401 BEQ 2$ 
2460 O074S2 005201 INC R1 a % OF SECTORS REQUIRED TO 
O46 | ;D0 WRI 8 OF WORDS 
2462 007454 062601 2s: ADD (SP)+,R1 : ; (CONTAINED IN RO). RI CONTAINS 
cues 0074S6 o0S002 CLR R2 iF CTED DISK 
2465 007460 162701 o00014 3$ SUB 814,R1 : SS - AFTER THE WRI 
ebb Oo7bs 100403 BMI 4 
246 062702 000020 ADD 820, Re 
2468 007472 000772 BR 3$ 
Ea 007474 06e701 000014 4§ 00 #1448 ;R2_ CONTAINS EXPCTD RKDA 
Eat Bo7ebe ati BR XFR . 
2473 012703 o40000 ¥FRIGK: MOV 840000, R3 :# OF WORDS = 16K 
2474 reste Ole70e o001e4 MOV #124, Re : RKDA SHOULD INCREMENT TC 
2475 ‘THIS AFTER A TRANSFER OF 16K 
2476 ; STARTING AT DISK 
2477 “ADDRESS = O (CYL 2,SUR 1,SEC 4) 


ion -11-DZRKHG, RK11-RKOS I? = Cen 


ZRKHG.P11 25-APR-77 
2478 

pate 0067514 053702 
e481 007520 012737 

104416 

Be worse ines 
e48S 007532 013777 
Suge 007540 010377 
e488 007544 4 
2489 

2490 

e491 

e492 

2493 

e494 

e495 

e496 

2497 

e498 007550 012777 
e4ss 007556 012777 
2500 

2501 007564 104417 
es0e 

2503 007566 004737 
2504 007572 10410e 
2505 

2506 

2507 007574 

2508 007600 104103 
es03 

e510 

2S11 007602 012704 
seis 007606 004737 
2514 O076le 104104 
2515 

e516 

2S17 007614 004737 
e518 007620 104105 
es19 

es2e0 

2Sel 007622 012737 
eSee 007630 104416 
eSe3 007632 104420 
eSe4 007634 013777 
eSeS 007642 010377 
2Se6 007646 005477 
eS2e8 - 
eSe3 007660 012777 
2530 

2531 OO7666 104417 
eS32 

2533 007670 004737 


032514 
000003 


C2011e 


XFR: 


001110 
1$: 
171470 


171450 
171436 


001110 


171366 38: 


171346 
171334 4S: 


MACY11 30( 1046) 
PE 


UUSD 
06-JUN-77 


14:55 


PAGE 5S 
RFORM THE LARGEST POSSIBLE DATA TANSFER 


BIS QDRV , Re 
MOV #1$, SLPERR 
CON. Re aet 

ORV. RESET 

MOV QDRV, ARKDA 


MOV R3, ARKWC 
NEG ph 


MOV ND,@RKBA 
MOV Ba ORKeS 

CON. RDY 

ISR PC, CHKCS 
ERROR 102 


JSR PC, CHKDA 
ERROR 103 


MOV #PGEND, RY 
JSR PC, CHKBA 
ERROR 104 

JSR PC. CHKWC 
ERROR 105 

MOV 823, SLPERR 
CON. RESE 

DRV.RESET 

MOV @RKDA 
MOV R3, IRKWC 
NEG 

MOV #PGEND, JRKBA 
MOV 8407, IRKCS 
CON. RDY 

ISR PC, CHKCS 


——- —_—- = ~——eee s Oe me 


iBPcTD RKDA Re feR. xFER 


if As TO '18’ ON ERROR 


;ADDRESS THE DRIVE, CYL 0,SUR O, 
;SEC 0 


;WORD COUNT (IF MORE THAN 


i S c WILL Be Done, iF 


yee bok WITHIN THE 
pie bE Cis, Oath TOMER. 


‘ST aRT WRITE FROM HERE 
WRITE, GO 


;WAIT FOR CONTROL READY 


IF 
DID NOT I 
CTL 


: CHECK THAT RKBA INCREMENTED 
-RKBA DID NOT INCREMENT 

TLY 
-CHECK THAT RKWC OVERF LOWED 
“RKWC DID NOT OVERFLOW T 
-ZERO AFTER A WRITE 
-LUP BAK TO °2$’ ON EROR (SW 9) 


sADDRESS THE DRIVE, CYL 0,SEC 0,SUR 0 


;STARTING BA 

;WRITE CHECK, SSE, GC 
»WAIT FOR CONTROL RDY 
sANY ERROR IN RKCS 


MO-11-D2RKHG, RK11-RKOS PERFORMANCE —_— 
2S-APR-77 10:18 


OZRKHG.P11 


007674 
007676 
007704 

7714 


1 
007730 


104102 


032777 
001030 
777 
1406 


17737 


104110 


777 
1413 
017705 
042705 
006305 
160577 
042777 
000735 


009137 


040000 171316 


000001 


Oe 
171300 001166 


171266 


171 

177760 
171250 
000017 


005366 


MACY11 30( 1046) 
PE 


CUD 
O6-JUN-77 


14:55 PAGE S6 


RFORM THE LARGEST POSSIBLE DATA TRANSFER 


ERROR 


171304 S$: 


6$: ae 


171240 BIC 


;GO CHECK THE REST OF THE DRIVES. 


7$: JMP 


102 
#B1T14,aRKCS 
SACE , AKER 
PC, GTYRG 


BA, SREG2 
110 


i 
#177760, 8S 


RS 
RS, JRKBA 
#17, IRKWC 
4§ 


NXTDRV 


;SKIP CHECKING FOR WCE IF HE SET 
erie CHECK ERROR? 


;GET RKCS,ER,0S,DA 


HEDTE GSR, ME WES DE, B15 fOO%S 
re hea ie ae al 
fina RB is we 300 WORDS E ETC.) 


1H Ee ECKeDy OnT® SUFFER 


;FORM THE RKBA AND RKWC 


;10 D FOR DOING 
: WRI CK IF THE REST 
: OF THE DATA BUFFER 


;GO DO WRT-CHK FOR 
-REST OF THE BUFFER 


Beats 


BBO RRE RCA SR ERATURE SOM SR AUER 


RRR RRR 
WO NMUN£ WMO 


is 


if 


cr 
mw 
hue 


“seen BELEK ee EXERE TER og EUR aC 10) 06-3 uN-77 14:55 PAGE $7 


.SBTTL EXERCISER PROGRAM 


N XERCISER PART OF THE PROGRAM. 
OE NeROGRAN WAS RESTARTED AT 210, THEN THE STATISTICS COLLECTED 


‘50 FAR WILL NOT BE CLE 





007772 104416 EXRCSR: CON.RESET 
:CLEAR UP THE LOCATIONS FROM 
pier on — 1$: OUR :*KEY’ TO ‘KWHR’ (EXCLUDED) 
ia oo = SNE 
610010 105737 001253 TSTB ; RESTARTED AT 2107 
THE STATISTICS COLLECTED 
ce ‘UPTILL NOW, DONT CLEAR THEM 
R -CLEAR LOCATIONS FROM *HECN’ 
GIRS PORE? oconse FOP PBCARG NE SSE, 
010024 001374 BNE 
0026 012700 4 MOV - INITIALIZE COUNTS FOR MINS, 
pioose OLs7OL Izzo NOV ores. Kul 
019036 010120 
010040 010120 MOV 
010042 010120 MOV 
0044 012700 - INIT PTR TO RANDOM NO. SEEDS 
StOveD pt S7on OS SueE NOV NN BY THE RANDOM NUMBER GENERATOR 
010054 012720 176543 MOV -SET UP RANDOM NUMBER SEEDS TO BE 
SIODEs D1S780 Redes NOV 
010070 Ol2720 176105 MOV 
Bi0100 ie7en 1S7ee0 NOV 
pioled o1s750 OS0res NOV 
010110 Ol2720 131547 MOV 
010114 Ol2720 032070 MOV 
010120 Ole720 123456 MOV 
010124 012720 17.6543 MOV 
Bioisy BoToo4 ” {BRANCH IF NOT 
010136 012737 o00062 on20se MOV 36) UF St AT REPITITION COUNT 
010144 o00403 BR 3 
O10146 013737 001236 cO20ss 4s: MOV PCNTR, REPCNT REPETITION COUN COUNT . WHEN THIS COUNT GOES. 
; THE g fext 8 rss WILL START WILL START RIGHT 
:F THE EXERCISER LEFT OFF. 
010154 004727 O22ese cs: JSR PC, CHDPRS ee IF ANY DRIVES ARE PRESENT | 


3 


Beppe 2: 
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-Pl1l | 25-APR-77 10:18 EXERCISER PROGRAM 
101 177777 MO 7 27777 ,-(SP) y 1V ACK 

BiBiba = Bdsose tee thee fac HBA’ APY TBeND AND PUSH 

101 64 V -(SP) B OLVISOR On 

pipigs BAae3s Qeesie We Peat 1V geo! BIVIOe MEO BROUTINE 
010176 005726 TST PR SCARD THE RENA h INDER. SHOTIENT 1S 
010200 012637 001520 MOV (SP)+, DRMAP i | Reel Fac ter” FOR DR 

010204 Ole737 000504 001522 MOV 0508 MAP } NG FACTOR FOR OY TROERS 
O10el2 Ole737 OleS27 001524 MOV 463.,SECMAP ; FACTOR F CTORS 
010220 012737 031463 001526 MOV #13107.,FNMAP; FACTOR FOR UNCT ION 
010226 013700 o020S4 MOV MAXBA, RO -COMPUTE THE MAXIMUM ALLOWABLE 
010e32 163700 o020S2 SUB BASEBA, RO ‘WORD COUNT FOR DATA TRANSFERS 
010236 Oo00241 cL¢ 

010240 O06000 ROR RO CONVERT TO WORDS 

010242 01274 177777 MOV #177777, -(SP) IV ON STACK 

010246 OO0S046 CLR ~(SP) ic CLEAR HIGH SOE DEND AND 

010250 o1004% MOV RO, -(SP) ;PUSH D ote VISOR ON STACK 

010252 004737 Oo2S2ie2 JSR PC’ aeSDIV 60-10 7 ’DIVIDE’ SUBROUTINE 
010256 005726 TST (SP)+ ‘DISCARD THE REMAINDER. QUOTIENT 1S 

“NOW ON TOP” OF THE STAC 
010260 o0S216 INC (SP) 
010262 012637 001530 MOV (§P)+, BAMAP -SAVE THE MAPPING FACTOR FOR BUS ADDRESS 


erknc. bil 


2650 
26S! 
26Se 
2653 
26S4 


Oo0o0o0o00 200000 


Senn Bot 
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010446 
170562 
016704 


032514 
000003 


O2011e 


170632 


001110 


170S46 
170534 


WORD’ OF EF ag 


ALL N HE DISKS Romie Tie ls 
WROSK : TB 
BO 


1$: 


es: 


3$: 


4§: 


S$: 


CLRB 


CON. RDY 
JSR 
ERROR 


FRSTRT 
FRSTRT 


#OBUF , JRKBA 
#3, a@RKCS 


—— 


Sie IS WR 
WIT 





WRITTEN WITH RANDOM PATT . TRE FIRST 
Ae sree REUEERT RITTER an 


T. IF IT IS 


cK IF IF a 4 ely 
S NOT SET THEN 
RNS. 


ARE WRITTEN Ren RANDOM part 


STARTED AT 2107 


IVES CLEAR THE RESTART FLAG 
Su 4 SET? 


S. DONT REWRITE ALL DISKS WITH 
‘ "ont SW 39 SET! 
POINTER 9 DRIVE ees TABLE 


CT PER D 
be HE FIRST AVAILABLE DRIVE 
‘POSITION THE BITS (15, 14,13) 


;BASE DISK ADDRESS 
;CALCULATE MAXIMUM BUFFER 


EKEEP ONLY WHOLE BLOCKS 


;MAX OF le SECTORS 


;GENERATE RANDOM DATA BUFER 
;STARTING ADDRESS OF DATA BUFER 
;FROM THIS BUS ADDRESS 

;WRITE, GO 


;WAIT FOR CONTROL RDY 
ANY ERROR? 
‘AN ERROR OCCURED WHILE DOING WRITE 


LU 
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RARAAARAAS 


2706 
2707 
2708 


NN 


aso 


032777 
001403 


052777 


000400 
000377 
010S2e 


001502 


001213 


000010 170320 BEGEXI: BIT 
; BEQ 


900190 170404 


170434 


Eo 


6S: 


;ON THE DISK. YOU ARE ADVISED TO USE 
;BASIC AND DYNAMIC TESTS. 


IT #B1T8, JSWR : TYPE CURRENT STATUS 
T #377,RO 

a Brite he ae 

-ASCIZ oft «12> WRITING’ RENDOM PATTERN, Be ive / 

MOV QDRV, -(SP) 

TYPOS 

BYTE 1 

"BYTE O 

eKs _— K FOR SOFT SWR CHANGE 

ce RY, RO : BEEREMENT SPE TOR CODNT 

BGT 3$ 

DEC R3 sMORE DRIVES TO 00? 

BNE 2$ 


;IF SW 3 IS SET, ENABLE THE LINE CLOCK AND INITIALIZE COUNTS. 


#SW3, ISWR sKWI1L CLOCK PRESENT? 
BEGNEX - IF P. NOTE: IF KWL1IL IS 
SHOULD NOT BE SET 


*NOT i 
OTHERWISE, A TIMEOUT WILL OCCUR. 


#BIT6, AKWLS ‘ENABLE KWLIL CLOC 


BIS K 
SERVICED AT PRIORITY 7 (KWSRVE) 
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BReRD Porc rhn oe RESERPRRSR Orda crease Rn 


alioie 


011014 
01 


001100 
001264 
014500 


a1dee2 


001264 
010676 


003376 
001306 


001326 
014500 


001306 
010000 


001326 


001456 


: THE PROGRAM IS GOING TO LOOP BACK TO THIS POINT AT THE END OF A PASS. 
BEGNEX: CON.RESET AR RYTHING IN DRI 
Rey SSTACK, SP RESET t Stack —- 
ar ‘ANY DRIVES LEFT IN SYSTEM? 
JSR PC , GENSRO ;GO GENERATE 8 COMMANDS FOR THE @ 


F THE S ANY THe GEN ae IN THE @, WAITING 10 ee EXECUTED. 


Heke I 
‘AND. PUT- THEN IN tito. rt oat TEED CMe PINS” rr’ 


; THERE IS A PRIORITY COMMAND TO BE EXECUTED IMMEDIATELY. 


OCR: HY aes?) Raia REERESEEHSEITY, 
1S: TST DRVPRS sANY DRIVES IN SYSTEM? 
are 65S + TYPE 1Z STRING 
aa iiazT over fue Bectz 
jj85S: -ASCIZ <15><12>/HALTING - BRESS CONT INUE 15 RESTART AT °200°/<15><12><12>< 12> 
: HALT 
JMP START 
es: MOV cM RO 
3S: eP. )4 s ANY UNF INISHED COMMAND 
, SKEY+20 
BNE 3$ 
JSR PC GENBRG -IF NOT, GO GENERATE 8 MORE COMMANDS 
CHEAFN 
4§: MOV SKEY,RO 
cs: BIT eB1T12, (RO) ANY HIGH PRIORITY COMMAND IN @ 
) s FINISHED? 
WsTe CRO) ti EXEC 
PRT CHND oS process HIGH PRIORITY 
6S: TST oetx THE ENTIRE Q 


(RO)+ 
CMP RO, #KEY+e0 
BNE =} ] 


;FIND OUT IF THERE IS A WRITE ae FUNCTION TO BE DONE IMMEDIATELY AFTER 
-A WRITE, THAT WAS DONE PREVIOUSLY 

TST WCFLG iI werTt CHECK TO FOLLOW 

BPL CHF AFN iuBgTE’ F NOT, BRANCH 


ee RK11-RKOS PERFORMANCE EXERCISER 
25-APR-77 10:18 


a: 


SSNS a Sensce sae CRRe Ee baa 


aan - ae 


bb le oe ~ 
—_— Ba oe 
Se 2o 


Ba27b0 {9488 


Oll6le 


EXERCISE 


ooo00ce 7$§: 


? 
/ 







MACY11 30(1046) O6-JUN-77 14:SS PAGE 62 

R PROGRAM 
GET _WC_F 

ee Ao bG AB RO tL HS CONTAINS KEY#x2 (OFFSET FROM 
‘KEY), OF THE WRITE FUNCTION 

j aed 7 38 
D BKEY, THE KEY 

rf FOR PREVIOUS 

CMP 82, 2(R1) ‘CHECK THAT THE FUNCTION 

BEQ : A WRITE 

MOV (RO), SREGO :GET KEY ENTS 

MOV g(R1), SREG! ‘GET THE FUNCTION INDICATED BY THIS KEY 

ERROR 7 e T 
A WRITE CHECK A WRITE IS 
: a OF THIS ERROR 
: INDICA T AN ATTEMPT IS BEING 
TO DO WRITE CHECK BEFORE A WRITE IS 
: PERF THE. KEY IN MESSAGE WAS 
.T WHICH GAVE RISE TO THIS ATTEMPT. 
.T TION CODE IS THE FUNCTION ASSOSCIATED 
‘WITH THAT KEY 

CLR WCFLG ‘ABORT THIS WRITE CHECK 

BIS #BIT 5, (RO) 

MOV ae nee ;SET UP BITS FOR WRT CHK 

BIC #174340, (RO) CLEAR THE UNNECESSARY 
EtAGe PROM T 

BIS #BIT6, (RO) sSET FLAG FOR ORITE CHECK, FOR 

IMP EXCUT 


;NO HIGH PRIORITY COMMAND IN G 


3 


eo 
_— 


=) 


PEERER PARE LLL GLU ULULU LGU er EERE earner ii i 


oeees 
8 RINSE 


frururu 
b= bao pe 
£rVuo 


FRO. 


eee e 
282 2 


i) 
_ 


yore has hee 


fd 
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XERCISER PROGRAM 





RK1 
25-APR-77 10:18 E 
PRIORITY C WAS FOUND IN THE @. FIND OUT THE FIRST AV 
AO AAD iN Teg, POR EXECUTION. 1 Fo as 
ineREN. C ‘WAIT FOR ANY IMMEDIATE INTERUPT 
011166 a “oo FOR RTI 
105200 1S: INCB Es RRO 
er ae4e 001244 SOY PPRLVL. -(SP) W PSw 
012746 011204 MOV #2$, -(§P) TURN Poh RT ia '. a 
oo0002 RTI 
012700 001306 BKEY, RO 
005710 CHI TST (RO) UNFINISHED COMMAND? 
100436 BMI CHe 
105710 TSTB —_-« (RO) IN PROGRESS? 
004 BMI C 
11001 MOV (RO) .R1 
042701 177770 BIC #177770,R1 
105761 001426 iste Y(RL} -IS THIS DRIVE BUSY? 
105761 001436 TSTB = POS(R1) -HAS THIS DRIVE BEEN POSITIONED 
“FOR ANY OTHER COMMAND. IF YES, 
‘SKIP. IF NOT, PROCEED 
001023 BNE CH2 
- is sia ; CHECK IF THERE | IS AY OTHER conn COMMAND 
? Ae ite ie Pe Previous 5 Rt Here Cb COMMAND 
- - HAVE GRESS COMPLETED 
12 1S: TST (R2) Ao SOLD ROT eve 
100412 BMI 2s 
105712 TSTB ss (2) IN PROGRESS? 
100410 
011203 MOV (R2).R3 
042703 177770 BIC #1 R3 
105763 001426 TSTB «BUSY R3) :IS THE DRIVE BUSY? 
100402 BNI 2 
020301 CMP Rl -IS THIS COMMAND ON THE SAME DRIVE? 
001447 BEQ POSTION iF ES G0 BN AND POSITI ON TH THE COMMAND ND 
‘ONE uae Conan THEY CAN BE PERFORMED 
“ON THE SAME DRIVE 
005722 25: TST (R2)+ “CHECK REST OF THE A 
020227 001326 CMP Re, 8KEY+20 
901360 BNE 1 
-IF THERE WAS NO EXECUTABLE COMMAND 
000470 BR EXNSK -ON ANY OTHER DRIVE, THEN EXECUTE 
‘COMMAND POINTED TO BY RO 
005726 CHe: TST (RO)+ -CHECK ENTIRE @ 
020027 001326 CMP RO, #KEY+20 
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BOADReER eae SRR PERS aoe 


eee eee 
Won. wrue-O 


Briaisis ats isis 


011316 


eee eeeeeeeeeeee See 
Saas SHeMNRARI AR 


011410 


ono 
b— pe 
mp 
££ 
Se 

& 


1432 


EhOGGRES 


001334 


pre 


a 


Baaaek 
oovolco 


Bae 


eo fee 
a 
— 
QOS 
S fem pve ps 


ee 


: 
8 


167676 
021436 
001306 
000020 


177770 
001426 


O1l6le 


001326 
G21436 


O1l6le 


013256 
011154 


16756e 


167554 


CH1 


9S APT RS SEN PARE Bs 


—¢ 
w 
= 


$3 


BALM Ao 
w 


AHO 4< 


-~ 
ATUS 


serra ¢ (RO) 


oll SRST EPO 


CONTROLLER IS NOT BUSY FIND 
sANY POSITIONED COMMAIID AND EXECUTE 


:IT 
“MAKE SURE COMMAND IS POSITIONED 
: ; COMMAND IS UNFINISHED, 


IS NOT IN 
DRIVE IS NOT IN BUSY 


;GO EXECUTE THE COMMAND IF THE 


;ABOVE CONDITIONS ARE SATISFIED 
” sCHECK ALL COMMANDS IN Q 


-ENTER HERE IF THERE IS A PRIORITY COMMAND TO BE EXECUTED. 


PRICMN: JMP 


POSTION: BIT 
BNE 


1$: 


EXCUT 


eBIT4, (RO) 
CHe 


-(SP 
#1$,-(SP) 


INTIFL 


#INTHND, ORKVEC 
CHF AFN 


MND 
e111, aRKCS 


;GO EXECUTE NON-SEEK COMMAND. 


spre on IF A COMMAND IS TO BE PREPOSITIONED (BEFORE EXECUTING A 


; ALREADY POSITIONED? 
GO BACK AND CHECK IF REST OF THE 
COMMANDS IN THE @ ARE TO BE POSITIONED 
T 
Save Theo, Radu PRES cLAye 8 PAST COMAND 
: POSITION 


NEW PSW ORO COR TORT TY 
“RETURN FOR RTI 


RK INTERRUPT VECTOR 
HECK IF ANY COMMANDOS TO BE 
EXECUTED 


: 
i 


oe 
os 
ea 


RRB IS 


Oooo 90000000 
wi 
be bee pw 
£Mo 


II 2 
5 


SSERRaRe 


REE ERR RE 
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10:18 EXERCISER PROGRAM 
T T N 
iba, TERE ONS bute TPR eRe eNO 2 
ONE EXECUTE T POS TIONED COMMAND ‘, 

‘BUT Rs to BY RO 

012701 001306 EXNSK: MOV #KEY,R1 

032711 000020 1S: I aB1T4, (RI) ‘HEADS POSITIONED? 

0057 i TST (R1) ; FUNCTION COMPLETED? 

ey Tt ae (R1) “FUNCTION IN PROGRESS? 

100406 BMI 25 

011102 MOV (R1).Re 

O42702 177770 BIC #177770. Re 

105762 001426 TSTB = BUSY (R2} ‘DRIVE BUSY? 

100005 BPL 3$ 

005721 2$: TST (R1)+ *CHECK ALL COMMANDS IN Q 

020127 001326 CMP R1, #KEY+20 

001357 1$ 

000425 BR EXCUT :NO POSITIONED COMMAND WAS 
“FOUND IN THE Q. SO EXECUTE 
:COMMAND POINTED TO BY RO 
“AN ALREADY POSITIONCD COMMAND HAS 

010137 001536 3S: MOV R1, SAVKEY ‘SAVE POINTER TO THE COMMAND(KEY 
“WHICH IS ALREADY POSI 

004737 012164 JSR PC, POSK GO AND POSITION THE COMMAND(KEY) 
‘POINTED TO BY RO 

004737 O20350 JSR PC POSCMND -SAVE INFO ABOUT PAST & PRESENT COMAND 

012777 OOO111 167440 MOV #111. 3RKCS “SEEK, IDE, GO 

o0SO046 CLR -(SP “ALLOW FIRST INTERRUPT 

012746 011572 MOV #4$,-(SP) RETURN FOR RTI ¥¥4#444%%% 

ood002 ‘ RTI 

105737 001535 us: TSTB—SssIINTIAFL ;DID_ INTERRUPT OCCUR? 

001775 BEQ § F NOT 

012777 013256 167432 MOV #INTHND, JRKVEC REESTABLISH INTERRUPT ADDRESS 

013700 001536 MOV SAVKEY, RO "RESTORE THE SAVED POINTER TO KEY 
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a Es - “ 
2 oe vat 
- = Ee Sai - gore 
3 op Sus S52 - Wi 
ee i! Ws wesw 6 SOW Fue 
2 oY es 2s Bion as = gg £,%288 
ee Bey HY B gaaee 
Ew «= 3 85 “en Sa58-% 
2 : $ =u S Buti «eee 
ro<w vs “ek & Se Sweuee 
bag — = yt “Cc tal 
ze 2 wee SELEY E oat 
Geow = WeetS «2 We Ste 8 isatWeale 
2 8 3 » = 
se ._& _ nf 5 
“Ke —— = ne = be oOo go & om = o 
Ssfeto «Gives § Aven Ens Byseus © doco, 
aisle om m : Pone spiel 
Senge SESE = neSbe inet Begs S EvSRE. 
= th a rs 3 


Ri 
ee 


1 
1 
0 
1 
011646 O00S04 
650 105781 001426 
654% 100004 
656 010137 001162 
104002 
000470 
105777 167330 
S 011672 100404 
011724 011577 167300 


& 011674 004737 Oe2032 
011700 104003 
011702 000461 


ur 
sstaes ogee $3 PReece & RRRERE 
Sa? gaa a <ceaee - BRSSAS & Sheers 
tt ~ ttt td | 
Oood000 Ooo0o Ooooo © Low ] ew | ow ] oo | ow } so Low ] ae | oe } oe | so ) oe 
- 


sh ERR REET EERE ERSSBREARREES ena eae aa 


MD-11-DZRKHG, RK11-RKOS PERFORMANCE Oa . 
OZRKHG.P11 10:1 


FREER COM UMNOURMASS sea Te am F 


2S5-APR-77 


o0000e 
o0000e 


167220 
167214 


6S: 


NWRF NC : 


cen BROE 30( 1046) 

R PROGRAM 
MOV 2(RS),R3 
CMPB R3 
sro” UREN 
MOV 2(RS).R3 
BIS 
MOV vrs), 
MOV rf 
JSR ia 
MOV R3, ARKCS 
BIS 17, (RO) 
BIS BIT? RY 

RY, BUSY(R1) 

MOVE RY Tce 
JMP STATUS 
JSR PC, DRVABT 
JSR PC’ CHKDRV 
NOP 
IMP QMNGER 


LUD 
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;POINT OF EXECUTION R/W/S RDY SHOULD 
ar Wetton BE DONE 


IT A WRITE FUNCTION? 
tes IT IS WAIT 
1T’§ NOT A WRITE FUNCTION 


Le 


SAVE INFO ABOUT PAST & PRESENT COMAND 
‘SET SSE, IDE, FUNCTION, GO 


‘fF F INDICATING FUNCTION 
ae HE COMMAND KEY 
So 3, 817-7 a Is SET 


gt ne ET FLAG INDICATING 


OR INTERUP 
;ABORT THE FUNCTION 
:GO CHECK, DRIVE ERRORS 


MD-11-DZRXHG, RK11-RKOS PERFORMANCE EXERCISER 
DZRKHG. P11 25-APR-77 10:18 EXERCISER 

3067 

3063 01 l lel WRFNC: 

3070 Glswe BIEEH? Sioote C1806 

l lel 

3072 Ole Ol 1$: 

3073 Ole os 2g: 

3074 Ole 052703 l 

3075 Ole pee Olel 167102 

3076 Ole 013777 Ole) 167076 

3077 Ole 004737 020372 

3080 pts peso 1B DBO 

3081 pis 052704 o00200 

3083 Ole 110461 001426 

308% Ole 110437 OO01S34 

3085S 

3086 

3087 Clels0 900137 d2l1436 





MACY 11 


% 
V 
J 
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Ry NTPLC 


STATUS 


w/w 
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{UAT TECPUNGTION TO BE EXECUTED IS P 


Dake 
gs Pak a TN, Bus ADDRESS OF BUFFER 


Fie RBDUT PAST & PRESENT COMAND 
SUE WRIT 
SET a THOTCATING FUNCTION IN 


ICATING DRIVE BUSY 
INTERUPT 

NS OFFSET TO THE ecg KEY 
IS SET 


SET FLAG FLAG i 


A ERON oNTaINS, BITS 0-3, BIT 7 


CUB 
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DZRKHG.P11 | 25-APR-77 10:18 EXERCISER PRO 
BiSibe Bas9BI iz7770 PosK: ea 93954. obit ToniNe ¢ SHARD POINTED TOBY RO 
oi 172 105761 001426 T Te Y(RL} 

1 bi 137 001162 MOV Rl, SREGO ale # FOR WHICH ’BUSY’ I 
012204 104002 ERROR 2 FLAG FOR THE DRIVE ‘CONTAIN 
012206 000470 BR 7g 


AED 
i REND In Not THAT at a DRIVE 
Sy Biel ATT rf a ae "Taare 
HONEXCEPTED ERROR CORO! ION. 


GRRE BRR SEGA PERM SE 


912210 105777 167006 13: TSTB @RKCS ‘CONTROL READY SET? 
SISSie 1aea7 022032 iy Be, GTURG iG RKCS 
ESSE ars BR ds SEXPEC “herot is Sef aT tare 
psa OF FPXECUTION, ROL SHOULD 
012226 011002 25: MOV (RO) ,R2 
012230 00030e SWwAB.SOtéRRP? 
3108 Ol2e32 O4e702 177770 BIC 8177770, Re 
3109 012236 006302 ASL 
3110 O12240 016203 002032 MOV PCMND(R2),.R3  ;STARTING WORD OF COMMAND TABLE 
3111 Ol224%% 011377 166760 MOV (R3), 
3ll2 Ol 032777 000100 166740 BIT sRUS; ;RW/S ROY SET? 
3113 Ol 001006 3$ 
3114 012260 010137 001250 MOV RI, SRORV GET ORIVE 8. FOR TYPING SERIAL # 
3116 At l — ZBBoR he GET BKGE FA. 05, 08 FOR THE DRIVE. A 
3117 Ol2272 O00431 gR b$ : (POSITIONING) SEEK WAS SUPPOSED TO BE 
3118 ; pats DRIVE . THIS IS 
3119 ; CONDITION. AT THIS 
3120 sPOINT OF EXECUTION R/W/S RDY SHOULD 
3153 Be Prac INDICA 
3i22 012274 110261 001426 3$ MOVB - R2, BUSY(R1) : SET NDICATING DRIVE BUSY 
3123 012300 152761 001426 BISB #677, BUSY(RI) 
3124 012306 032710 o00010 IT 1T3, (RO) ;IS THIS A SEEK COMMAND 
3125 Ole3l2 OO01006 
3126 012314 112761 000377 001436 MOVB POS(R1) | ;SET FLAG INDICATING, THIS DRIVE POSITIONS 
3127 Ole32e 052710 o00020 BIS IT4, (RO) :SET FLAG INDICATING THIS COMMAND 
3128 012326 o0040e BR S 
3129 012330 052710 ooo200 ug PIs #8177, (RO) ‘POSITIONED. SET FLAG INDICATING 
at 012334 012777 012376 166676 S$ MOV SINTISK sEUNCT pK VECTOR 
3132 Ol2e342 013777 OO1244 166672 MOV Le STAT Bey nf INTERRUPT 
3133 012350 105037 001535 CLRB —sINTIFL <CLEAR FLAG INDICATING - INTERRUPT 
3138 012354 000207 RTS pc : OCCURRED 
3136 012356 004737 O14426 b$ JSR PC, DRVABT ;ABORT THE FUNCTION 
3137 Oles62 004737 O16S40 JSR PC’ CHKDRV -GO CHECK, DRIVE ERRORS 
3138 012366 Oo0e40 
2139 012370 005726 75: TST (SP)+ -POP THE RETURN ADDRESS 
3140 012372 900137 o1D650 JMP QMNGER 
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+ b= b+ bee Boe Bee be bee Be B= be Be B= be Be B= Bo FB be be & 0 Bo Be Bs Bo bo be Fe bo bo Bo Bo 2 § 2 Bo Be Bs ho fo Bo fe Be Be 


RR LO 


105237 
0S3766 
004737 
104005 


032777 
001403 
004737 
1040 le 


=) 


17700 
2700 


2 2 


gagaeze 
aaa 


© 
8 
~~ 


001535 
001244 
020272 


020000 
O222ee 


1 ERK — EXERC 


o0000e 


166576 


ace. THIS, 


SEEK BE 


INTASK: INCB 
BIS 


geaagannsena 
S 


MOVB 
BIC 


INT1 


PPRLVL, 2(SP) 


“peice 


i aes 
PC ,RGYSOR 
le 


BUSY(R1),RO 
81776 


00,RO 
KEY Y,RO 


PU 
joa wcfiGX31,20(1046) Ob-JUN-77 14:55 PAGE 70 


sbeNOLER, Senvices THe FIRST INTERRU 


T 1S ALLLOWE 
T, WHICH OCC 


TO TAKE 
AS A RESULT 


‘INDICATE THAT INTERRUPT TOOK PLACE 
CPU fed TO S ON RETURN FROM 
: INTE 


i EONT ROL 
va T AFTER THE FIRST 
T ON IN tt ING SEEK 
SCP BIT SET? 
ae ORIVE # FOR 


‘Yeon Seated Ot 
T AFTER FIRS INTERRUPT ON 
ACCEPTING A SEEK WAS INITIATED, 


ReSuL OF nd gS FIRST 


SCP SHOULD 
FIRST INTERRUPT. 


7 


NOT et 
iT SET ONLY AFTER THE SEEK 

:1S DONE). 

‘THIS IS THE FIRST INTERRUPT 

‘AFTER ISSUING SEEK 

;CHECK THERE IS A SEEK FUNCTION 

SIN RKCS | 

:GET RKCS, 

RK *SEEK’ FUNCTION. 

8 “Seek is ga NaS A RESULT OF WHICH 
: (THIS) FIRS 

:SHOULO CONTA Arh THE SEEK FUNCTION BITS, 


;BUT IT DID NO 
;GET THE DRIVE # FROM RKDA 


OKT THIS DRIVE NO. WAS BUSY 
» ie IT WAS 


y FLAG FOR THE D DRI WAS NOT SET. 
ines (Tn pabAdWaCH CAUSED” 

S (FIRST) 5 HAVE. BEEN 
Toueys (SOF TWARE 


reer RG). NO SHROTE WHERE. JER 
“ANY OPERATION IS INITIATED ON ANY DRIVE 
-*BUSY’ FLAG FOR THAT DRIVE IS SET. 

»FORM THE ADDRESS OF 

-THIS KEY 


es 


www Bi 
BBS Z 


SeSeR ee nos 


RRR 
WO NOUI£C Wr 2 


SU ONDOISAINS 


000020 
001162 


001436 
001162 


166432 


000040 
000040 
000040 
O2eeee 


001474 
001474 
001474 


“a oY pe. BK 1A ERKDS * 54 eteae EXER g1aeR 


4§$: 


cs: 


6$: 


MACY 11 


ISER PROGR 


~“~ 
. 


: 1T4, (RO) 
R1, SREGO 
10 


POS(R1) 
R1, SREGO 
10 


ARKCS 
8S 


#B1TS,ERCODE 
#BITS,ERCODE 

ITS, ERCODE 
PC ,RGYSDR 


G 
3O(1046) O6-JUN-77 14:55 PAGE 71 


;1S THE KEY ACTIVE FOR "POSITIONING’” 


KEY) IS NOT 
IVE (GIVEN 


Urn I 


oir ive 


18 THE "POSITIONING’ FLAG SET’ 


T 
THE DRIVE 8 
(FROM RKDA GIVI INTERRUPT DID 
‘NOT HAVE ITS POSITIONING FLAG SET. 


;ANY ERROR? 
:NO - RETURN 


-SAME ERROR 


;GET RKCS DA AND DRIVE # FOR 


ER 
: TYPING SERIAL OR BRtve ¥ 
;B1T 15 ’ SET IN RKKCS AFTER FIRST 


; IN - WHICH OCCURRED AFTER A 
POS TIONING SEEK WAS INITIATED. RKER 


-WILL CONTAIN ERROR BIT/S 
* POSITIONING’ BIT 
-CL * FLAG 
“CLEAR ’POSITIONING’ FLAG 
CLEAR THE ERROR 
- INDICATE HIGH PRIORITY ON 
- INCREMENT RETRY COUNT 
eons RETRIES? 


sABORT THE FUNCTION 


rr 


Lp eRKgS — EXERCISER MACY11 30(1046) O6-JUN-77 14:55 PAGE 72 


APR EXERCISER PROGRAM 
1OF R SEEK OPERATION UNDER INTERRUPT MOGE 


004737 O20272 SKCMP: ISR PC , CHKCRDY : CONT ADY Ser? 
104013 ERROR 1 ; CONT -. Y Not SET, AFTER A SEEK 
017746 166300 18: MOV KDS. -(SP) IVE # THAT INTERRUPTED 
004737 O22e170 JSR Bc Beare ATE B a 15,14,13 TO POSITION 
012601 MOV (SP)+.R1 Qh TATED BITS (DRIVE ID BITS) 
105761 001426 TSTB —« BUSY(R1) ‘CHECK THAT DRIVE WAS BUSY 
ila ERROR iW ; BUSY’ FLAG FOR THE LORE tS, 
:( baa NOT SET te 15 - exos) 
iff aio. THAT OnpL ETE, BUT 
: CT DRIVE WAS 
a "UEY’ FLAG SHOULD 
116100 001426 2s: MOVB  BUSY(R1),RO fs ADDRESS OF THE 
042700 177600 BIC #177600, RO * KEY 
l att eOT Ta cro) :CHECK THAT POSITION BIT WAS SET 
B10ra? 001162 SOY RL SREGO 
104010 CRROR iA’ {Bos iTiontNe FCA (IN KEY) IS NOT SET 
SET FOR TING DRIVE (GIVEN IN EROR 
105761 001436 3S: TSTB POs RL) HEC E OSITIONING FLAG WAS SET 
001003 BNE 4 
910137 001162 MOV R1, SREGO 
104010 ERROR 10 ; POSI TIONING’ FLAG 
: s’ 15 SE TOWING) SEEK, wie set DRIVE 
; (SEEKING). THIS 
Mes FOR THE INTERRUPTING 


Wole 
sORIVE (RKDS) POSITIONING FLAG WAS 


;NOT SET. 
ie i: ame eS oe co el 


: THE 
ei A COMA 5 on reat BRIVE * ABORTED 

017777 166200 166210 MOV JRKDS , IRKDA ‘GET THE DRIVE ® FROM ORIVE ID BITS 
} iN ADDRESS THE DRIVE 

000100 166170 BIT #RWS, IRKDS * R/W/S T? 

001005 BNE 5 : YE 

004737 022032 JSR PC, GTYRG sGET RKCS,ER,DS, DA 

010137 001250 MOV R1; SRORV -GET DRIVE & FOR TYPING SERIAL # 

10401 ERROR 15 :R/W/S RDY NOT SET FOR INTERRUPT ING 


VE (RKDS), BETER SEEK WAS COMPLETED. 
RROR? 


001000 i6bl4e SS: BIT #SIN, JRKDS :*SIN’ E 
INER :YES, BRANCH 


MO-11-DZRKHG, RK11-RKOS PERFORMANCE EXERCISER 
5 2S-APR-77 10:18 XERCISE 


OZRKHG. P11 


3303 013052 
013060 


3306 013062 
3307 013066 


a 


032777 O40000 166142 
001060 


Ages 001426 
000207 


BIT 
BNE 


RTS. 


MACY11 30(1046) 
R PROGRAM 


aeKCs 


BUSY(R1) 
PC 


LUD 
O6-JUN-77 14:55 PAGE 73 


;ANY HARD ERROR? 


:Y 
;NO_ERRORS DETECTED ON 
‘CLEAR BUSY FLAG FOR TH 


—- "oO 


Mone as BRK KHG, BEA, SBKOS ee EXERT LEER coh etbdare LON? 108 14:55 PAGE 74 


3308 


13074 io 001250 


BID UB 


galt 


105061 


8998 


000020 
001436 
Byeies 


016264 


001446 


PSINER: 


PSRTRY: 


1$: 


PF TERR: 


PORKER: 


JSR 
MOV 


CLRE 


eRe 


ai 


span aomgee 


o 
coe 
oO 


SQ bn 
R1, SRORV 


ABrty. cro) 
POS(R1) 


ERB iN 
PC, SINCNT 
PF TERR 


RETRY(R1) 
POS(R1) 


mR on 


sBITle, (RO) 
PC 





; THERE WAS A ’SIN’ ERROR ON 
‘DOING POSITIONING (SEEK) 


GET DRIVE #, FOR TYPING SERIAL s 


big (POST LTQNING) SEEK 


iC 
‘CLEAR POSITTIONING FLAG 


KL ERE Puy} F AR BOR HIS DRIVE 


eee 


rhy SSUNt LESS THAN MAX 
; CLEAR POSITION FLAG 
Ss? 


iSET HI PRIORITY ON RETRY 
: RETURN 


; INDICATE COMMAND ABORTED 
‘CLEAR RETRY COUNT FOR FUTURE USE 


NT ABORT MES 


: INCREMENT ABORT COUNT 
CLR HI PRIORITY BiT 
-PRI SAGE 


;CLEAR HI PRIORITY BIT IF SET 


is DRIVE; FOR TYPING SERIAL 8 


DOING P POSITIONING. (SEEK) 


HARD ERROR 
ie a posirigune Bi! 1S DRIVE 
Y FLAG THIS DRIVE 


Oat AcOSRKHG. BEI ASRKOS PRR QRMANCE EXERCISER cc fPGtAA and ‘ 1046) K0b 14:55 PAGE 75 


3363 


Ree CMey TRV eREer i LLL ict RE REE ERASE 


032710 
001401 
104020 


001162 


177770 


INTHND: CLRB 


000002 


165716 1$§: 


es: 


4§: 


Ss: 


MOV 
ERROR 


INTFLG 


PPRLVL, 2(SP) 
PC, , CHKCRDY 


— 
p ,» SKCMP 


ARKDA, - (SP) 


PC, CROTLF 





a a ll 
Ll 





“RTI 

NTRUPT T 
PRA Rare gee 0 ones 
‘SCP SET? SEARCH COMPLETE? 
G0 TO SEEK COMPLETE ROUTINE 
ii THE re ‘ 19 WHICH 
sROTATE BITS 15,14,13 TO POSITION 


THE DRIVE # FROM THE STACK 
ek: THAT DRIVE WAS BUSY 


; Busy” fees FOR T HE INTERUPTING DRI DRIVE 
Hea Be PEP ln ta 
‘DRIVE IS BUSY DOING SOMETH 


That Te. "BUSY" FLAG FOR The A INDICATES ows 
; DRIVE (RKDA) IS CLEAR! 
5 fODRESE 


ION FLAG 
OF THE 


;CHECK IT’S NOT A SEEK FUNCTION 


5 I ING 
“DRIVE (RKDA) INDICATES THAT A SEEK 

: TION CUTED ON THE 

. T’S THE CASE, SCP BIT SHOULD 
; SET INTRUPT, BUT IT 

I 

: OF 

-MISI 

iC 






F NOT VERROR 
; /FUNCT ION IN PROGRESS’ FLAG (IN THE KEY) 
INTERRUPTING ORIVE. 


i Av ea BK LA ERKOS 7 ren OER cen BROG (1046) E06 ., 14:55 PAGE 76 
OG BLRUS RIBS BBLIES ey ASSERT BETHEL 


3411 Gi3g426 104032 ERROR :UNEXPECTED DRIVE NO. INTERRUPTED 


1 Pen 


3415 013440 000303 . 


at M6 Goes 177770 Bie le »R3 eT PRON THE KE OF He PARAMETER 


3418 Ol 165S46 MOV 
3419 013454 042704 177761 BIC si777tl, RY Bee a T FUNCTION CODE 
s4g0 013460 016305 002032 MOV MND(R3) , RS cK THAT THE FUNCTION IN 
3421 S AND THE KEY ARE SAME. 
3422 O13464 126504 000002 CMPB =s-2 (RS) , R4 
Q 7§ 
BE BRD GY cores ee 
3426 013500 010437 001164 MOV RY, SREGI 
sig? 613504 104033 ERROR 33° iat Act THAT Bo at RKCS AFTER-THIS 
| EXPEC TED ONE 
8 001426 ™ te sett? 19? rey CRLD if x i THIS BRIve. 

a: i Bo Ba at 
Etre Deselect id Deve Ae Ext 

| : ERROR, RETURN HERE 
3435 013526 032777 OO1000 165462 BIT #SIN, ARKDS -SIN ERROR? 
33 t Bode 022222 FER , RGYSDR ;GET RKCS, ER, DS, DA AND DRIVE # FOR 
3438 TYPING SERIAL DRIVE # 
3439 013542 104016 ERROR 16 SIN ERROR 
3440 013544 004737 016152 SR ,CLRSIN 
3441 013550 004737 01626 JSR PC; SINCNT ‘HELP COUNT OF SIN’S. IF MORE 
3443 013554 oco0002 RTI RETURN ete eS en 
3444 * RE TURN HERE if THAN MAX 
3445 013556 105261 o01446 INCB  RETRY(RI) 
3446 013562 122761 900003 001446 #3, RETRY(R1) 
3447 013570 00140S Q 
3448 013572 10 010000 S 1T12, (RO) 
3449 013576 042710 o00020 C 1T4, (RO) 
3450 013602 RTI 
3452 013604 004737 O14426 8S JSR PC, DRVABT :ABORT THIS FUNCTION 
3453 013610 o0000e 95: RTI 
sec 013612 032777 O4O000 165402 10%: §8IT #HE . IRKCS :HARD ERROR? 
3456 013620 001076 BNE HRDERR 
3457 013622 032777 100000 165372 BIT #ERR, ARKCS ;SOFT ERROR? 
3458 013630 001002 BNE SFTERR : YES 
3453 013632 000137 014300 - IMP NOEROR * NO 


_——_— a Se om eee ———_—— —— - —_—=—* es 


NO 1-DZRKHG, BKIA-RKOS PERFORMANCE EXERCISER. NAGYLL 30( 10N6) 8 14:55 PAGE 77 


3460 
3461 ; THERE WAS A SOFT ERROR 

1 
3463 012636 030777 000001 165354 SFTERR: BIT  #HICE, ORKER “WCE? 

13646 000001 

Se? OLSes4 OO1084 a BNE ITO,ERCOE le hs Oe 
sea Birk Gree coool onus Big PITO,ERCODE ANY OTR ERROR 
3470 Ol 052737 000001 001474 BTS —«sBITO,ERCODE SET Tie ae euaiae GUNCTION 
3472 013674 O0S262 001632 
3473 013700 104421 002070 iewsc BGS re oe ree 
3475 013704 
N7e O17 12 res ooood2e 165306 15: BIT SCSE,, ARKER - CSE? 
3478 013714 oooo02 
3479 013722 001031 — BIT 171, ERCODE i ING ON A CS ERROR? 
3480 013724 opo002 001474 y THIS ONE 
3481 013732 1027 BIC 4 IT1,ERCODE oy OTE A ite 
— 013734 pe279 oo0002 001474 Bis IT1, ERCODE T ; THe cs ERROR BIT 
3484 OL 
Slee Heras IDs! One : Mens me INCRENENT CSE COUNT FOR THIS DRIVE 
ae fie ove Bie ISR PC, TYPEN ;GO TYPE OUT T 

o1 004737 0B2064 ISR ped ihe HE FUNCTION THAT GAVE ERROR 
a A Be ae , GTSDRV 4 IVE 8, FOR TYPING SERIAL 
3491 ERROR el SOFT ERROR, Oh Off PERF FORMING A DATA : 
3492 NECoRGE IS BROKEN DOWN INTO DRVE. 
suas 013774 —s 
a) O1a7™s = Oee7s ooo004 CMP #4, R4 a tra’ READ FUNCTION? 
3496 014002 004737 017110 2 
3497 i a JSR » DATCHK :GO CHECK THE DATA READ 

4006 14160 35: 
3499 :  JMP  CMNERR 

014012 000137 014216 4S: JMP CMNABT 


mi he A-OeKNs, RK — EXE 


A | 


014136 


014202 
014210 
014214 
014216 
01 


005037 
104421 
004737 
032777 
001416 
104416 
010137 
000241 
006037 


010000 


000010 
000010 
001562 


002104 
002120 
021736 
022064 
022226 
001446 
000003 
010000 
o00020 
016006 
001474 
002532 
014426 
010000 
o01502 
001502 


165174 


001474 
001474 
001474 


165122 


001474 
001474 
001474 


001446 


165334 
165326 


164760 


RCISER 


MACY11 30(1046) 


EXERCISER PROGRAM 


2S: 


CMNERR: 


CMNABT : 


: BIT SKE, IRKER 
BEQ 1§ 
BIT #B1T2, ERCODE 
BNE C 
IC #BIT2, ERCODE 
BIS #BIT2, ERCODE 
INC SKECN(R2) 
INC HECN(Re) 
TYPMSG ,MSG1 
BIT #167740, JRKER 
BEQ 2§ 
BIT #8173, ERCODE 
BNE C 
BIC #8113, ERCODE 
BNE C 
BIS #BIT3, ERCODE 
NC HECN(R2) 
YEMSG SC 
TYPMSG ,MSGS 
JSR PC, TYPFN 
JSR PC, GETINE 
JSR pe GTSDRV 
ERROR 22. 
tee 5 RO TR TRL) 
BEQ CMNABT 
BIS #B1T12, JSAVKEY 
BIC #BI1T4, ASAVKEY 
JSR PC, CLRERR 
RTI 
CLR ERCODE 
TYPMSG .MSG27 
JSR PC: DRVABT 
BIT #SKE, JRKER 
BEQ 
CON. RESET 
HOY R1, QORV 
ROR QDRV 


NOb6 
O6-JUN-77 14:55 PAGE 78 


AERA ke 


; SKE? 


;ALREADY WORKING ON A SK ERROR? 


‘YES - I THIS ONE 
;ANY OTHER 
;Yes = THIS FUNCTION 
;SET THE SK ERROR BIT 


s INCREMENT COUNT FOR SKE 
-ON THIS DRIVE, 


;ANY HE BESIDES SKE? 


sALREADY WORKING ON A HE ERROR? 


YES - IGNORE THI is ONE 
ANY OT 
;YES - T THIS FUNCTION 
:SET THE HE ERROR BIT 
3 ieee NT _HE COUNT FOR 
:THIS DRIVE 


; PRINT "ON DOING’ 
NT OUT THE FUNCTION 
t WHICH GAVE THIS ERROR 


:SAVE DRIVE # 
=HARD ERROR ON DOING DATA XFER 


; INCREMENT RETRY COUNT 
3 TRIES IN ALL? 
“YES, ABORT THIS FUNCTION 


* INDICATE HIGH PRIORITY ON RETRY 
-CLEAR ’POSITIONING HEADS’, IF SET 
-CLEAR THIS ERROR 


;CLEAR ERROR CODE 


;ABORT THE FUNCTION 
Roe K ERROR? 

*RESET THE CONTROLLER 
‘SET DRIVE NUMBE 


-CLEAR THE 'C’ BIT 
‘LEFT JUSTIFY DRIVE NUMBER 


FOR TYPING SERIAL # 


tt Se 
MD - TT eet ee _ EXERCISE cen Baten wo O6-JUN-77 14:55 PAGE 79 
01 
1 
l 


= ie eae 


‘4 o000de 3S: 


ne 
* 
~ 

' 


BASS AAA CUE MES SS 


PH? hee ae 
—_ 
o 

pa 


ne 


052710 
o0code 


001456 


165176 


165144 


a EXERCISER 


a 


MACY11 30( 1046) 
EXERCISER PROGRAM 
NOEROR: TSTB : ‘ocae 
Q l 
RETRY(R1),-(SP) 
BYTE 2 
0 
1$: CLR 
SIRE «RE TRYCRI) 
Rie peg 2 2 SSAVKEY 
SR 
CMF #4, R4 
BNE 
JSR PC , DATCHK 
es: CMP #2,R4 
BNE 3$ 
244 ets, Samer 
IS IT1S,R3 
MOV R3,WCFLG 
BR S$ 
33: CMP #6, R4 
BNE 4§ 
CLR WCFLG 
4S: BIS sBIT1S, (RO) 
cs: RTI 


O&-JUN-77 14:SS PAGE 80 


; IF THERE WAS NO HARD OR 
ort ERROR ON LATA TRANSFER 
NTER HERE 


CLEAR PRIORITY BIT if SET 
:GO, C pg test CS ON THIS 
‘DATA 


;WAS IT A ’READ’ FUNCTION? 


;IF IT WAS *READ’, CHECK THE DATA 


;WAS IT A ’WRITE’ FUNCTION? 
;1S *WRT CHK’ TO FOLLOW THIS 


erat bot SAR 
SEY oe Py 16 INDICATE 
Be 





a CHK FUNCTION? 
;CLEAR WR CHK FLAG 


;SET FLAG TO INDICATE THIS 
:FUNCTION IS COMPLETED 


i Lf 
MO-11-DZRKHG, RK11-RKOS PERFORMANCE EXERCISER MACY11 30(1046) O6-JUN-77 14:5S PAGE B81 
DZRKHG.P 11 25-APR-77 10:18 EXERCISER PROGRAM 
T ASSOCTATED FL DRIVE POINTED TO By F1 
T VE IF THAN 8. ABORTS 


bee 


3610 
sell O12 010246 = DRVABT: HOY R 4 (SP) “SAVE Re 

$15 144 esate Pb4008 its #i04000,(RO) | ;INDICATE THAT FUNCTION IS ABORTED 
3614 O14440 42710 010000 BIC eBIT12, (RO) ‘CLEAR HIGH PRIORITY BIT IF SET 
Sig Gisee Gieue a 

3617 ates 005262 001672 INC RE ORT (RE) 

3618 OWNS O26227 001672 000010 CHP ABORT (RE) , #10 

3620 O01 °F itt 016312 IMP OBEt cr THE DRIVE 

3621 ast Werte 1S: MOV (SP)4+.Re ORE Re” 

3622 014472 104401 9002165 TYPE mSG1O :TYPE “ABORTED” 

2623 C14476 000207 RTS Pc : RETURN 


MO-11-DZRKHG, RK11-RKOS PERFORMANCE EXERCISER 
25-APR-77 18 RCISE 


OZRKHG.P11 


AMAA RAGA LSE 


OORa000 200000 


: 


BORA EERE ROBORRODRER SS 


RRRRRRRKK 
SRR 


3679 


shh 
is 


af ARIES COREE 


greece 
ane 


014715 


i 
g 


iS 


ake 


= 
pan 
<= 
~~ 
© 


10: 


164350 
164340 


164274 


Cu 
MACY11 30(1046) O6-JUN-77 14:55 PAGE B2 
EXE R PROGRAM 


THI TI ESTS AND PUT THEM IN THE QUEUE. THE 
Tithe ee Pe 
-1 a WH c WILL BE PERFORMED. 
5 svc 
-3. OD Re ADORE SURFACE, SECTOR. 
‘4. STARTI Gress 
:5. WORD aN TRANSFER. 
-THE QUEUE IS LOCATED AT 'CMND’ (TO ’CMNDS’). 
GENSRQ@: CKSWR 
DEC REPCNT :DECREMENT REPETITION COUNT 
ay PONTR, REPCNT Recor Ne TITION COUNT FOR EXERCISER 
TYPE 4,238 REO PE ASC CFR ING 
BR a: T NER te Ree iz 
jig58: ASCIZ <15><12>/END OF bAsé/ 
MOV SPASS, -(SP) 
INC (SP) 
TYPDS 
JSR PC REPSTAT 
JMP sedp 
1$ BIT eSW8, ISWR 
a A aSWR ITCH O SET ? 
Beg : ae NOT 
TST (PC)+ x INDICATOR 
7$: y 0 TINE INDICATOR 
BNE 25 IME ALREADY 
INC 7§ | ea THE INDICA TOR 
JSR PC, TIMTYP TYP THE TIME (IF SWR O03 SET) 
BR 2g ONT INUE 
gS: CLR 7§ REAR INDICATOR 
TYPE SCRLF 
JSR PC REPSTAT 
25: IT #SUS,, SHR ;HALT? 
Q = NO 
HALT ‘YES, PRESSING CONTINUE RESUMES PROG EXECUTION 
3S: JSR PC. CHDPRS -CHECK IF ANY DRIVES PRESENT 
4g: MOV eKEY. RO 
MOV RO, R4 
CLR Ri 
cs: MOV R1. (RO)+ :CLEAR THE 8 COMMAND KEYS 
ADD #400.R1 iBTTS 8.9,10 INDICATE THEIR 
CHP #4000, Ri OSITION’O,1,2,3,4,5,6,7 
MOV BCMND , RO asm THE PARAMETER TABLE 
MOV RO, RS 
MOV #-40.R1 -FOR THE 8 COMMANDS IN Q 
6S: CLR (RO)+ - (8X4) WORDS IN ALL 
INC RI 
BNE 6S 


ru? 
Pee ‘HG, RK11-RK RFORMANCE EXERCISER MACY11 30(1046) O6-JUN-77 14:SS PAGE 83 
HG. st REI AEROS tant: EXERCISER PROGRAM 


# 014720 004737 015770 JSR PC, CLRFLGS oa THE ae ig? PERTAINING TO THE @ 
0147 737 000001 001264 GENI Mp #1, DRVPRS e GONG, SENT? 
eee Bluse bolaae } 334 
3686 014734 005000 CLR RO ro 
E14 z: ater Bos ee 025576 225 BBR 38 SRAND T 
3689 NER RNDON RIVE NNUPBER 
3690 ie A He AVAILABLE DRIVES 
3631 014744 025730 RSDRVL 
3693 O14 ? MOV RSDRVH, -(SP) 1V ON STACK 
en ies wine = secs Be BB 
36% O14754 013746 001520 MOV ORMAP, - (SP) 0 
3697 014760 paaoae O2Se2le JSR PC, aeSDIV i is OIVIDE SUBROUTI 
3698 O1N764 005726 TST (SP)+ REMAINDER. SUOTTENT 1S 
3699 ROR ON ON TOP” OF THE 
3700 O14766 012600 MOV (SP)+. RO 
3701 014770 O20037 001264 CMP RO, ORVPRS “MAKE SURE CORRECT MAPPING IS DONE 
3702 014774 001001 BNE 3$ 
3703 014776 005300 DEC RO :*QDRVE’ CONTAINS RANDOM DRIVE NO. 
3704 015000 005037 001502 CLR QbRv 
3705 O15004 116037 001254 001502 MOVB (RO), QDRV 
3706 O1S0l2 105737 901502 TSTB =s-_- QDRV -TEST IF TYPE F DRIVE 
3707 015016 100016 BPL 325 “NOT IF POSITIVE 
3709 015020 142737 o00200 001502 BICB #200, QDRV -CLEAR THE FLAG BIT 
3710 015026 132737 000001 001502 BITB #81,Q0RV :ODD OR EVEN DRIVE ADDRESS 
3711 015034 O01404 BEQ 31$ 
3713 015036 015724 TST ODDEVN -MUST HAVE BEEN AN ODD ONE 
3714 O15042 001730 BEQ GEN! INSURE THAT ODDS WHAT WE WANT 
3715 015044 BR 32$ 
3717 O1S046 737 015724 31$: TST ODDEVN ;MUST HAVE BEEN AN EVEN ONE 
3718 0150S2 001332 BNE 22$ =NO GOOD - TRY AGAIN 
3720 O150S4 004737 025576 32S: JSR PC, SRAND GENERATE A RANDOM NUMBER 
3721 O1S060 025734 RSFUNL 
1 1 0257736 MOV RSFUNH, -(SP) IV STACK 
vs tebe | BOSOME AR OR tSPDY CLEA HIGH OH TBH DIVIDEND AND 
l 1 001526 MOV FNMAP. -(SP) : PUSH DF ’ TSOR ON STACK 
3S ot pao 025212 JSR PC aesDIV :GO T "DIVIDE’ SUBROUTINE 
3728 015100 005726 TST (SP)+ ; DISCARD THE REMAINDER. QUOTIENT IS 
3729 ON TOP OF THE STACK 
3730 015102 d2i6e7 000003 CMP (SP), #3 MAKE SURE CORRECT FUNCTION IS SELCTD 
3731 015106 001001 BNE 20$ 
3732 015110 O0S316 DEC (SP) 
3733 O1Sil2 012637 901512 203: MOV (SP)+, GFNC -THE FUNCTION THAT CAN BE PERFORMED 
3735 015116 004737 O2557& ISR PC, SRAND GENERATE A RANDOM NUMBER 


ae 
; 
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MD-11-DZRKHG, RK11-RK RFORMANCE EXERCISER 
DPRKMG. P11 BER ttt: BPE E eR ROGRAM 
3736 015122 025740 RSCYLL 
3738 015124 013746 025742 MOV RSCYLH,-(SP) | ;PUT LOW DIVIDEND ON STACK 
3739 015130 CLR -(SP) : CLEAR HIGH DIVIDEND AND 
3740 ‘IT ON 2 ACK 
3741 015132 01374 001522 MOV CYLMAP, - (SP) i BSH DIV ON STACK 
3742 015136 004737 OeSele JSR PC aeSOIV ‘GO TO THE ’DIVIDE’ TINE 
3743 015142 005726 TST (SP)+ ‘DISCARD THE RENAL . QUOTIENT IS 
3744 iNOW ON TOP OF THE STACK 
3745 015144 012637 001504 MOV (SP)+, QCYL ‘(FROM 0-312) 
374% 015150 022737 000313 001504 CMP #313, OCYL 
3747 015156 001002 BNE 4 
3748 015160 005337 O01504 DEC QCYL :*QCYL’ CONTAINS RANDOM CYLINDER NO. 
50 015164 4S: 
3752 O15164 013746 O25742 MOV RSCYLH,-(SP) ; PUT ah OH IVI ON STACK 
3753 015170 CLR ~(SP) i CLEAR HIGH DIVI AND PUSH 
ee 015172 013746 o01S24 MOV SECMAP,-(SP)  ;PUSH DIVISOR ON STACK 
3756 015176 004737 OeS2l2 JSR PC aeSdIV GO TO 'DIVIDE’ SUBROUTINE 
3757 015202 | TST (SP)+ : DISCARD INDER. QUOTIENT IS 
3758 -NOW ON TOP OF THE STACK 
3759 Ol 012637 001510 MOV (SP)+, QSEC : (BETWEEN 0-13/8 
3760 015210 022737 14 001510 CMP #14, QSEC 
3761 015216 901002 BNE S 
3762 Ol 005337 001510 DEC QSEC :*QSEC’ CONTAINS RANDOM SEC 
rea 01 022737 077777 Oes742e SS: CMP 877777, 2SCYLH ;SELECT SURFACE # RANDOMLY 
3765 015232 101005 BHI 6$ 
3766 015234 012737 o00020 001506 MOV #B1T4, QSUR ; SUREACE 1 
3767 "Rl CONTAINS THE MAXM WORD COUNT BASED ON 
3768 “AVAILABLE DISK SPACE. 
3769 'R2 CONTAINS THE MAXM WORD COUNT BASED ON 
3770 ‘AVAILABLE MEMORY SPACE. 
3771 OlSe42 o0S5001 CLR R1 
377 015244 oo0404 BR 7§ 
3774 01524 005037 001506 6S: CLR SURFACE 0 
3775 015252 012701 o00014 V #14, R1 14 SECTORS ON SUR O 
3777 : ASSUMING THAT S AVAILABLE THE MAXIMUM TRANSFER THAT CAN 
3778 TET NB ce tS SOK HO MOY SARANDON CYLINDER @ > OR = T0307 AND THE 
3779 “SURFACE IS | S ARE THAT THE NUMBER OF WORDS TO BE TRANSFERRED MAY 
3780 ‘BE GREATER THAN THE SPACE AVAILABLE ON THE DISK. IN THAT CASE, THE WORDS 
aT “COUNT IS TO BE SELECTED IN SUCH AWAY THAT THIS OVERFLOW DOES NOT OCCUR. 
3783 015256 023727 O01SO4 OO030E 7%: CMP QCYL, #306 :IS THE RANDOM CYL # GREATER THAN 306° 
3784 015264 002003 BGE 9$ 
3785 015266 012701 177777 QS: MOV 8177777,R1 -IF vES, SURE THAT THE 
3786 015272 000431 BR 215 : WORD ts SELECTED PROPERLY 
3787 ‘COMPUTE MAXM WORD COUNT BASED ON 
3788 AVA LABLE DISK SPACE | 
3789 015274 012700 o00014 9S: MOV #14,R0 :C # OF SECTORS AVAILABLE ON 
3790 015300 163700 O015S10 SUB Qset, RO “CYLINDERS SELECTED 
2791 015304 o60001 ADD RO, Ri 


- 
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ars BIBS TR87B3 BOTS a ae. ae 
Mee mea 025100 TSR nt ae 5 CALL rie Pa Ie bh al on Testa 


3794 
3797 015330 Ol2616 MOV (SP)+, (SP) come 3 
V (SP)+,R3 THE 
oe ies ate 0 ai, RS : COMPUTE’ T hy oF 19RS BURT OBLE. 
5 —— ay R tsps : PUT THE RLTIPLICAND ON THe ST STACK 
oo tes fae yi al me bh 
3804 Ol l MOV Bek 2 ::GET THE OF THE PRODUCT 
3805 015354 010301 MOV -° R3,RI COMPUTE T AL # oF HORDS-SPAEE 
3806 AVAILABLE ON DISK FROM THE SELECTED 
BASED ON 
oe Beebe pay sorocoun 
3810 O1S3S6 004737 025576 21$: JSR PC, SRAND GENERATE RANDOM NUMBER 
3811 015362 025744 RSBAL 
3315 015364 013746 025746 MOV RSBAH, - (SP) :PUT LOW DIVIDEND ON STACK 
318 015370 oOSO4G CLR -(SP) ; GEAR j DIVIDEND AND PUSH 
3816 015372 013746 001530 MOV BAMAP, -(SP) } VISOR ON STACK 
3817 0:5376 004737 O2S2l2 ISR PC aeSDIV GO TO THE - DIVIDE” SUBROUT INE 
3818 O1540e 005726 TST (SP)+ : DISCARD REMAINDER. QUOTIENT IS 
3819 NO TOP OF THE STACK 
3820 O1S4O4 012637 001514 MOV (SP)+,QBUSAD ; 
3821 015410 006337 001514 ctu ast @BusAD pam 
3 —— roe ae BY W-AODING RaRoOn OFFSET 53° 
3825 O1S422 013703 o020S4 MOV R . THAT 
3826 O15426 163702 vara SUB OBUeRO RS ; COMPUTE 8 OF WORDS USING THE 
3827 015432 000241 cLc 
3828 015434 906003 GENERATED BUS-ADDRESS WITHOUT 
3825 015436 010302 MOV R3,R2 SCAUSING A NXM 
3831 O1S4H4O O20e01 103: CMP R2.R1 -SELECT SMALLER OF THE TWO 
3832 O15442 103401 BLO 11 ; WORD COUNTS THAT WILL BE 
3833 : FOR GENERATING A RANDOM 
3834 O1S444 010103 MOV R1,R3 : 
oe = :R3 CONTAINS THE MAXM WORD COUNT 
3837 -POSSIBLE. COMPUTE THE WORD COUNT 
3838 “MAPPING FACTOR FROM THIS. 
38339 O1S446 11%: 
oat O1S446 012746 177777 MOV #177777,-(SP) | ;PUT LOW DIVIDEND ON STACK 
3e42 O154S2 OOSO4E CLR -(SP) ; CLEAR HIGH DIVIDEND AND PUSH 
3843 ‘T STACK 
345 O1SH66 OO4737 o2Se12 Woe Pel aNSDIV 16070 THE "DIVE 
a 015462 005726 TST (SP)+ ‘Gls CARD THe, RERRINO Be SOOT TENT Is 


ee eS ee 





3848 O1S464 005216 INC (SP) 
3656 015466 012637 001532 MOV (SP)+, WCMAP ;WORD COUNT MAPPING FACTOR 
1 015472 004737 025576 JSR PC, SRAND ;GENERATE A RANDOM NUMBER 
352 015476 025750 RSWCL 
1 025752 MOV RSWCH, - (SP) jPUT V 
ec Bieepy pdeoe RR RBS CLEA ey APE TBeRD ano” 
0015 MOV -(SP) 0 
58 02521 JSR Prantl ie Pa Ges 
3 TST DISCARD QUOTIENT IS 
331 001516 MOV (SP)+, QWRCNT SNC OMTATIE 
Be ! aunen conan 5 BILE He ron 
3863 001516 TST QWRCNT ‘MAKE SURE THE WORD COUNT IS 
3864 BGI ‘NOT O 
3865 001516 G NT ‘TAKE CARE OF ZERO AND NEG NMBRS 
3865 001516 INC QWRCNT 
3867 12$: MOVB  QDRV,RO 
3868 CLC 
3 ROR RO 
ROR RO : POSITION THE DRIVE NUMBER IN 
3871 ROR RO ‘BITS 15,14, 1 
3872 ROR RO 
3873 001504 MOV QCYL,R! 
3874 015564 SswAaB.CtéRR«&‘L‘ 
3875 015566 CLC 
3876 015570 ROR Rl -POSITION THE CYLINDER NUMBER 
3877 tee R Ri ‘IN BITS 12-5 
1 Rl 
3879 015576 BIS R1,RO 
3880 015600 BIS C,RO :RO CONTAINS THE COMPLETE DISK 
3881 015604 BIS RO . . 
3882 015610 MOV , (RS)+ :] RKDA IN THE PARAMETER TABLE 
3883 -(FOR THE 8 COMMANDS) 
3884 “WHICH FUNCTION? 
388S -O0-READ CHECK, 1-READ, 2-wWRITE 
3886 015612 022737 o00001 001512 CMP #1, QFNC 
3887 915620 OO14ie BEQ READ 
5 Se 1S RCV (RS)+ TET TE FINCTION 
DD eee ae a 
015640 714 OO0040 BIS TS, (RY) SET TO INDICATE 
oe ‘ar bate tec Slee 
3894 -DONE FOLLOWING THE WRITE 
3895 015644 O0040S BR 1S$ 
Bee 015646 012725 ococo04 25: MOV #4. (RS)+ :READ FUNCTION CODE 
3898 015652 o0040e2 BR is$ 
3300 015654 012725 oondle 14$: MOV 12, (RS)+ -READ CHECK FUNCTION CODE 
3902 O15660 013715 O01SI6 15S: MOV QWRCNT, (RS) sINSERT THE WORD COUNT (RKWC) 
3903 O15664 905425 NEG (RS)+ :(2°S COMPLEMENT) 


* - —_—_- -_- - * ~~. le Alea Sa awe = lls ae —_—— = a « = —_=—- 


ee ee cee 


3904 015666 013725 001514 MOV QBUSAD,(RS)+ — ; INSERT THE BUS ADDRESS (RKBA) FOR 
ie COMMAND IN THE PARAMETER 
3307 015672 053724 001502 16$: BIS QDRV, (R4)+ ay Te DRIVE NUMBE 8 ER INSIDE 
3303 015676 O20427 001326 CMP RY, #KEY+20 ,8 COMMANDS IN 

3gi2 G1e704 OOOLa? 014724 ee CGEM af at. 00. Gate ep cnenme 
213 te ine 0 Te 

3915 015710 ooS237 015724 173: INC ODDE VN “C ROM /ENEN 70 EVEN/ OUD 
3916 015714 O4e737 177776 015724 BIC #177776, ODDEVN ;KEEP 

3917 015722 000207 pC “ALL BC HAVE BEEN 

3318 ‘cain atin ‘GENERATED IN THE TASK-QUEUE 
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33 WEB MTS [ORE eReH Fol Fh BREN RETURN FROM THE ERROR HANDLER °SERRCR 
3923 

oe — —_ 016006 EXCRLUP: og ., rove HALT FOR OTHER oRBAXES 12, GET DONE 

3927 015734 012701 Aisaep wi a riaeed igus CLEAR OUT THE COMMAND-KEYS 

mS Bp os a oa 

3931 015752 012601 MOV (Sp)¢ RI 

393¢ 015754 004737 015770 JSR PC, CLAFLGS ;CLEAR OUT a PERTAINING 
3934 015760 012706 001100 MOV STACK, SP 

3335 015764 000137 010650 IMP R te v "Sieh enn THE _ Sonmanos 
3937 ROR WITH Su 9) 8 ATE T 1S MADE 
3338 at ATE THE SET OF EVENTS WHICH LED TO 
334 ay 

3942 

3943 

3944 ; CLRFLGS 

345 ‘THIS ROUTINE CLEARS OUT THE VARIOUS FLAGS USED FOR THE 8 COMMANDS IN THE SUEUE. 
3947 015770 012700 001426 CLRFLGS: MOV #BUSY, ,RO ;CLEAR THE 8 BUSY FLAGS 

3949 015776 O20027 001462 CMP RO, #OSCNT+2 “ALL DONE? 

3950 016002 001374 BNE i$” : NO 

3951 O16004 000207 TS PC 
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L1-RKOS PERFORMANCE EXERCISER MACY11 30( 1046) 14:55 PAGE 89 
-APR-77 10:18 EXERCISER PROGRAM 
TINE _IS_ENT IT HAS T 
ae Mie en Ati a ee uh ; ‘oe IF TREIR RUW/S 
ol octet ti eras 
CLEARED FQ F RIVE, A Pontes, Ie Ne RIVES 7 HAT HAVE BEEN 
CONTROL T iS. f poove 8 CLE 
l CLRERR: -(SP) SAVE R4, RY ON THE STACK 
Bt Beue Rie’ = (8p) 
005005 CLR 
005077 163210 CLR DA : 
105765 001426 13: TSTB e Y(RS) ; HAS THIS DRIVE BUSY SEEKING? 
001472 af: T : 
000106 163156 2%: BIT , @RKDS hws SET? 
001015 BNE - 
005237 001472 ING IMER TIME 
001371 BNE 2 ie FOR R/W/S RDY 
004737 O22222 ISR PC, RGYSOR ‘GET RKCS, ER, DS, DA AND DRIVE # FOR 
; TYPING LA DRIVE a 
104004 ERROR 4 iR/W/S 10 NO 
‘FOR THIS DRIVE WAITED LONG ENOUGH. 
032777 001000 163132 i” IN, IRKDS ‘SIN ERROR ON THIS 
Bpa7ae 022222 , RGYSDR RKCS, ER, DS, DA PND DRIVE # FOR 
PING SERIAL DRIVE 
104016 ERROR 16 *SIN OCCURED ON OF te DRIVE 
116504 001426 33: MOVE - BUSY(RS) RY -FORM THE ADDRESS OF THE 
042704 177760 BIC i JY KEY WHICH MADE THIS DRIVE 
062704 001306 ADD sKey RA - BUSY 
042714 010000 BIC #10000, (R4) -CLEAR HIGH PRIORITY BIT, IF SET 
105065 001426 CLRB - BUSY(R5) :MAKE THIS DRIVE FREE, AVAILABLE 
020000 163102 4S: ADD ,aRKDA; SS THE NEXT POSSIBLE DRIVE 
BBs 206 me Reco i TRCRERENT COUNT 
022705 900010 CMP #10,R5 
001331 BNE 1§ : NO 
004737 020340 ISR PC, CRCMND “SAVE INFO ABOUT THE PAST & PRESENT COMAND 
012605 MOV (SP)+,R5 :RESTORE R4,RS 
012604 MOV (SP)+,R4 
7 RTS : RETURN 
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4000 
3 aa By Pal Se Feta 53%, ARREE nels HE Ble on 
4008 OTHER onl THAT y bOING cfEKO. BREN eas (3 Drives Give 
4008 aout Hel AND FINALLY PORT HBL 3 ua 15. Rog BACK TO THe MAIN 
4008 
010 Bibles GAN7a> AbBRae CONSIG CLASIN: OE CLARA on, Pe ee R ORIVES 10 COMPLETE 
4013 016164 013777 OO1S16 163036 MOV QURCNT JRKDA exe ig ig ain't ite —_ 
‘als BIei76 O12777 OOOO1S 163016 a ae a ete on eae en ae 
4017 1 IN RKDA 
4019 Bieone apea37 001472 ia TIMER 
Olg2l2 032777 OO0100 162776 1S: BIT BUS ORKOS “WAIT FOR R/W/S RDY TO SET 
016220 001015 BNE 
Giese forse, 7 a 
016230 004737 O22222 JSR PC, RGYSDR ae a 0s, PA Ano DRIVE # FOR 
016234 104004 ERROR 4 -R/W/S DID NOT Ser AFTER 


016236 032777 O01000 162752 BIT #SIN, IRKDS 

016246 004737 Oee222 JSR PC, RGYSDR : ER. DS. DA AND DRIVE # FOR 
: TYPING iat DRIVE # 

016252 104016 ERROR 16 A DRIVE WAS DONE ON THIS DRIVE 
"TO CLEAR "SIN’, BUT ’SIN’ DID NOT GET 


016254 737 Ce0340 es: JSR PC, CRCMND ;SAVE_INFO ABOUT THIS 


O04 COMMAND 
016260 104416 CON. RESET :DO IT TO CLEAR OUT MASK F/FS 
O01626e 000207 RTS PC -EXIT FROM THIS ROUTINE 
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4041 


Mit 
4044 


4O4G 
4047 
4048 
4049 
4050 


4082 
4053 
40S4 
4055 
4OS6 
40S7 
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va 
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EXERCISER PROGRAM 


FATS ROUTINE IS ENTERED WHEN A ante Pe OCCURS. THE ’SIN’ COUNT FOR 
;THE DRIVE GIVING 'SIN’ IS INCREMENT 


JSR 


SINCNT: ine 
MPB 
0S 

RTS 

1$: JMP 


RNa YE bi 


SPECTER. AT’ THE TIME OF ENTRY Ri CONTAINS THE 


PC, SINCNT 
UR "al SIN COUNT (MAXIMUM ALLOWABLE ) 


RE RE IF TOTAL SIN COUNT LESS THAN MAXIMUM 
ALLOWABLE 


SINCN(R1) I NT ’SIN’ COUNT FOR THIS DRIVE 
#3, SINCN(RI) ONE RRORS OCCURRED? 

, (SP) ‘ADJUST PC FOR RETURN TO THE RIGHT POINT 
PC : RETURN 
OSELCT 5 ERRORS OCCURRED, GO DESELECT 


MD-1 


ty 
# 
5; 


40S8 
40S9 
4060 
406 1 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
408S 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 
4OS4 
4095 
4098 
4099 


po bet 2 Ho pee 


BSVRRIGN-S 


£ELELLLLSL 
— 


[el eed 


OZRKHG, RK11 
Pll 


a4 
or 





bb be he be be be me be be be Bae be Be me bb Pe 


INPERERRAS2eRRBON 


es 


001264 


001263 
177777 


002336 


001264 
O2eSele 


001520 





DSELCT: 


1$: 


4§: 


a2B82 


wm 
a) 
Oo 


eRqazaRgasE gy 


id 
wz 
pew 


ROD 


MSGI1S 
Ri, -(SP) 


l 

PC, SNOTYP 
DRVPRS 
PC, CHDPRS 


8177777, -(SP) 
-(SP) 


ORVPRS, -(SP) 
Pc a#S01V 


(SP)+, DRMAP 


SUO 
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ate ame pee "ea TO 


VE POWER LOW OCCURS. 











oe 

cTeD TF OTAL_ SIN COUNT 
ATAL ERROR 

ad ws. GETS SET, OR DRY 


pt is OF 


IVES ING TESTED 
Peete 
CTED) IN THE 


ental AVAILABLE DRIVES 


Be T 
iol BN FOUND IN TABLE, EXIT 
fs THI DRIVE ® THE LAST ENTRY IN TABLE” 


TAKE OUT THIS DRIVE # FROM 
AND PUSH UP THE 
ENTRIES 
;CLEAR LAST ENTRY IN TABLE 
;T ® TYPED OUT WAS DESELECTECD 
‘BECAUSE ERROR COUNT THE 


EXCEEDED 
OUABLE 


PUSH DIVISOR ON STACK 
‘GO T he DIVIDE’ TINE 
:D SCARD RINGER. SHOT TENT 1S 


" GENERATING RANDOM 


Vw 
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XERCISER PROGRAM 


MO-11-DZRKHG, RK11-RKOS 
OZRKHG.P11 ° 25-APR-77 10:18 E 

ais pt ube rte — 6S NOV nn) Re Te one Oo” Co SPONDING 
411 D16460 177770 BIC #1 ,RS Wt OF SELECTED ORIVE 

41! l 1 R1,R5 

atts STEM of sat 104000 an #104000, (RY) CATE C DESELECTED 

4120 O16474 Vee 7$: a? Au ye ; TNO ORPLETED 

4121 O16476 O22704 001326 CMP BKEY+20, R4 

tice 01 001365 BNE 6$ 

4124 016504 105702 gS: TSTB ss « Re -'F’ TYPE DRIVE ? 

4125 Ol 100012 BPL 1$ ‘NO = JUS T EXIT 

4126 016510 1 oo000: BIT #1,Ri ND OR-E IVE NUMBER 

4127 016514 001403 Q 

4128 O16516 042701 000001 IC #1,R1 

ate SEES ea o00c: 9$ BIS #1,R1 

4131 016530 000137 016312 i0$: § JMP DSELCT -DROP CORRESPONDING ORIVE 

4133 

4134 016534 000137 010630 113:  JMP BEGNEX -GO RESTART EXERSISOR PART OF TEST 


ei Sie) 
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MD-11-D2RKHG, RK11-RKOS PERFORMANCE EXERCISER MACY11 30(1046) 
OZRKHG.P11 | 2S-APR-77 10:18 EXERCISER PROGRAM 
4135 Suen 
41 THI ROUTINE CHECKS F FOR FATAL ERRORS THE DRIVE LIKE OPL, DRV 
4 ? , THESE ERRORS OC % DRIVE S DESELECTED 
4138 0 10 REE ies NS ABER 1h BE C 
414] ;*NOTE 1: IN THE ERROR MESSAGE WHE RE RKDA IS PRINTED OUT. IT GIVES 
4192 -#ONLY THE DRIVE NUMBER (NOT CYLINDER, SUFACE AND SECTOR). 
4146 cal: ISR RET IF ANY FATAL ERROR OCCURED 
4146 : 0 eee RETURN fe IF THERE Ag NO FATAL PREOR 
4148 O01 017746 162464 CHKDRV: MOV JRKDA, - (SP) SAVE RKDA 
4149 Ol 010146 MOV R1,-(5P) ‘GET DRIVE 8 
4150 O16546 000241 CLC 
4151 016550 OO60I16 ROR (SP) 
415e 01655 906016 ROR 3) 
ee Pl | 
4iee Cleese Tee, 162444 cor (ep)4 IRKDA SS THE DRIVE TO BE CHECKED 
41 i e772 010000 162424 ! #OPL , ORKDS ‘DRIVE POWER LOW? 
4158 O16574 004737 Oe2222 JSR PC, RGYSDR -GET RKCS, ER, DS, DA AND DRIVE s 
4159 F TYE ING SERIAL 
4160 O16600 104035 ERROR 35 : DRIVE LO, #NOTE 1 ABOVE 
4161 O1660e 032777 OO2000 162406 1S: BIT 8DRU, IRKDS : DRIVE 
dies Bieei2 DOd7a? 022222 FER CBE RGHSOR T RKCS, ER, 0S, DA AND DRIVE # 
4164 ‘ ‘FoR ROE TAG SERIAL NUMBER 
4165 O16616 104036 ERROR 36 “DRIVE UNSAFE BIT IS SET 
4166 ay 
4167 016620 032777 OOOO4O 162370 2S: BIT RUIPS , IRKDS * WRIT Oe SET 
4168 O16626 001403 BEQ 
4169 O16630 004737 O22222 JSR PC, RGYSDR -GET RKCS, ER, OS, DA AND DRIVE 8 
4170 FOR TYPING SERIAL NUMBER ; 
4171 016634 104037 ERROR 37 i HPs T, age ck WATE PROTECT SWITCH ON DRIVE 
4173 O16636 032777 OO00200 162352 3S: BIT #DRY , ARKDS ‘DRIVE READY CLEAR’ 
4174 O16644 O01004 BNE ug 
4175 O16646 004737 O2e2222 JSR PC, RGHSDR :GET RKCS, ER, DS, DA AND DRIVE 8 
4176 ; “FOR TYPING SERIAL NUMBER 
4177 O16652 104034 “ ERROR 34 ‘DRIVE READY CLEAR, SHOULD BE SET 
4178 -#NOTE 1 ABOVE 
4173 016654 000411 BR S$ 
4181 O16656 012040 162332 4S: BIT #12040,9RKDS § ;ANY ERROR? 
qt85 DIEEee DIET? 162336 oe os cexon 4 RERTORE KOA 
4184 016672 16 oo000e2 ADD 2, (SP) ‘ADJUST RETURN ADDRESS 
4185 016676 RTS PC 
4187 016700 000137 016312 Ss: IMP OSELCT 


MO-11-OZRKHG, RK11-RKOS PERFORMANCE EXERCISER 
25-APR-77 10:18 EXERCISE 


OZRKHG.P11 


016704 
016706 
016712 


016714 
720 


a aah 


000400 
177400 


025576 


o00002 
025755 


017104 


025754 
017106 


017106 


177760 


017104 
017106 


017106 


MACY11 30(1046) 
R PROGRAM 


THIS fHIS ROUTINE GENERRAES 


1$: 


eS: 


33: 


4$: 


S$: 


6$: 


19 WRITE DATA ON THE 

a es 

‘ 1) ABSOLUTE DISK RODRESS (DRIVE #, CYL 8, 
VE WORD 


‘ a * ae 


CUO 
06-JUN-77 
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BUFFER FULL OF RANDOM DA 


auto bid ee 


SEC 


WORDS. THIS BUF BUFFER 
WORDS SEO FOR 


#, SUR 8) - SHINUM 


*X IS THE WORD COUNT (2’S COMPLEMENT) 
-Y IS THE STARTING ADDRESS OF THE 
“MEMORY BUFFER. 
2(RS) RY ‘GET Saye EIT BODRESS OF BUFFER 
(RS) ,R3 } TH (# OF WORDS TO 
IRKDA, Re 
Re, RSOTH GET THIS RANDOM SEED 
TL -GET LO RANDOM SEED 
#-400,R3 F THE BUFFER IS MORE THAN 
ove. SECTOR ) LONG, 
,RS e IN SUCH 
R3 A WAY THAT EACH SECTOR 
3$ : BEGINS WITH OeRnDon DATA 
#400, R3 ;WORDS GENERATED USING THAT 
#-400,RS $ SECTOR ADDRESS AS THE RANDOM 
RS, (R4)+ FIRST WORD OF EVERY SECTOR IS 
if WORD COUNT (2°S COMP) INDICATING 
OF WORDS ACTUALLY WRITTEN IN THAT SECT 
RS ‘ALL DONE? 
9$ 
PC, SRAND :GENERATE DATA WORDS 
#2, RCNT 
= 
RCNT 
ug 
RSDTL, RNUM 


R3 
10$ 


R2,-(SP) 
#177760, (SP) 


-FILL THE BUFFER. DON'T USE 
ALL DONE? 


;ANY MORE DATA WORDS (FOR 
ee. OF THE SECTORS)? 


; (ABSOLUTE DISK ADDRESS 3 ITS 


OR 


+ ii 
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2S-APR- EXERCISER PROGR 
A. nies O2272e6 000013 CMP gis, (a+ pe RA FOR 
x 017064 562708 900004 BOD #4,Re ‘OF THe NEXT BLOCK 
4248 017070 Od0Se0e 95: INC Re ;HI RANDOM SEED 
sen 017072 OO007le BR 1$ 
4251 017074 104415 10$: REG ; REST GISTERS 
42Se 017076 Obe70S 00004 : #4,RS ADJUST RET ss 
sea 017102 o0020S RTS RS ; RETURN 
425S 017104 000000 RCNT: Q 
eS& 017106 o00000 RNUM: 9 


“, 


G 
06-JUN-77 
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4528 Hig NE NTERED WHEN THE DATA THAT WAS THE DISK IS 

4259 gE CHECKED: ie ie te. ee ENT RY RS CONTAINS TH POINTER TO 

4260 ra on 74 Is 

4o6 | THE 8 ct C400. WORDS 6 cei ATED USING T CTOR 

4262 -ADDRESS ( (AND S COMPLEMENT ) T ON 

4263 -OCCURS THE BUS ADDRESS, EXPECT irevon veh OATA ARE REPORTED. 

4265 017110 104414 DATCHK: SAVREG 

Hebb O171lle 016303 002032 MOV PCMND(R3), R3 ee S OF THE PARAMETER 

4268 017116 016304 000004 MOV 4(R3),R4 1_(2"S COMP) 

4269 017122 O1630S OO00006 MOV G(R RS ‘et BUS 

4270 017126 011301 MOV ) RI 

4272 017130 OI10146 MOV R1,-(SP) 

4273 017132 004737 022170 JSR PC’ CROTLF ;ROTATE BITS 15,14,13 TO 

4275 017136 012602 MOV (SP)+,Re ‘BOP’ OFF ORIVE # FROM THE STACK 

4276 017140 006302 ASL 

4277 017142 O62702e 001712 ADD #DATER, Re -FORM THE ADDRESS OF DATA ERROR COUNT 

4278 ‘FOR THIS DRIVE 

4279 017146 012737 177764 001540 MOV 8-14, ECOUNT 

4280 017154 011337 025756 MOV (R33) RSDTH ;CREATE RANDOM SEEDS TO 

4281 017160 013737 025 025754 MOV RSOTH RSDTL ‘BE USED FOR CHECKING DATA 

428e 017166 005137 025754 COM RSOTL 

4 017172 022704 177400 1S: CMP 8-400, R4 :DATA IS CHECKED IN 1 SECTOR 

4285 017176 003003 BGT 25 neh RCH SECTOR IS GENERATED 

yogE 017200 010402 MOV RY RB ING THAT SECTOR ADDRESS 

4287 017202 OCSOO4 CLR RY AS THE RANDOM 

1288 017204 o00404 BR 3$ 

4290 017206 062704 oOo0400 23: ADD #400, R4 

4291 017212 012703 177400 MOV 8-400, R 

4292 017216 012500 3S: MOV (RS)+: :SAVE THE F FIRST WORD OF THE SECTOR. 

Mr CAT CATING SOF TORDS my 

459c grein HE jot SECTOR 

1236 017220 o0S200 INC RD OF WORDS (WRITEN} 

4298 017222 005203 INC R3 FS OF DATA WORDS TO BE CHECKED 

4239 017224 O01465 BEQ 14$ 

4301 017226 004737 025576 ug: ISR PC, SRAND pein RANDOM DATA WORD 

4302 017232 025754 RSOTL 

4303 017234 012737 oO0002 017104 MOV #2, RCNT 

4304 017242 013737 025756 017106 MOV RSDTH, 

430S 017250 OOO0406 BR 10$ 

4 017252 005337 017104 9S: DEC RCNT 

430, 017256 001763 BEG ug 

4308 017260 013737 025754 017106 MOV RSDTL, RNUM 

4309 017266 005737 017106 10$: TST RNUM 

4310 017272 001767 BEG 9 

4312 017274 005700 TST RO 


S 


8 
oh 


: 


5 
~ 
£ 
~ 
Ww 


—-Q000 
Ber 
sa 


i 
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iO 





017106 SS: CMP RNUM, (RS) -EXPCTD WORD = RECYD WORD” 

BEQ 8$ -YES 

TST 

wf 

TS (RS) 
001164 at rH G1 

5p ; 
017106 O01164 eS: MOV RNUM, SREG! SAVE EXPCTD DATA WORD on tn 
001540 ist ECOUNT egy te" (Bec) bate FOROS 
001162 MOV : AVE ERROR 8 Ss 
BOI Lee NOY CRE) SREGE ie BATA 
001170 MOV R1, SREGS 
022226 JSR PC’ GTSDRV FOR TYPING SERIAL # 

ERROR 2 SON) ERROR ON DOING 

eotes, "timtick™ 
’ o 
BE REPORTED. 
"ECOUNT’. TO 
YOU WANT REPORTED 
001540 INC ECOUNT 
gs: TST (RS)+ 
INC R3 -DONE CHECKING? 
BNE Ug 
14S: TST RY ANY MORE SECTOR BLOCKS 
BEQ 17S TD. CHECK? IF NOT, EXIT 


MOV R1,-(SP) 
;GET THE NEW RANDOM SEEDS 
#177760, (SP) : (ABSOLUTE DISK ADDRESS 8 fh ee 


177760 BIC 
000013 CMP #13, (SP)+ -TO USE FOR GENERATING DATA 
BNE 1S$ :OF THE NEXT BLOCK 
oo0004 ADD #4,R1 
15S: INC RI 
oo0002 161564 BIT #CSE, IRKER -IF THERE WAS A CSE THEN CHECK 
BEQ 6S “ONLY THOSE SECTORS THAT WERE READ 
161566 CHP R1. IRKDA 
025756 16%: MOV R1,RSDTH 
025754 MOV RI. RSDTL 
025754 COM REOTL 
17%: BE SREG “RESTORE RO-RS 
RTS PC 
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25-APR-77 10:18 ROUTINE TO SIZE MEMORY 
1368 .SBTTL ROUTINE TO SIZE MEMORY 
i : Sl SS 
437 i* ISR PC, $SIZE 
4373 
dace es io TOP; LAST V T BANK 
4 376 : ty < = rie I seth ont ION = L 1 #50 OPUTE BRBRESS OF Aba BBE MEMORY 
4378 . a K MENT KEY 
A SD Sie tee na tall 
wer HaBIT1S BESET Ett THENG NENT. OPTION 
4382 : | 5-0 DON'T HAVE BY ROUTINE 
art: “= 22 (Betas 
4386 017472 nett NOV RB fi it THE STREK 
4387 O17474 O10346 MOV R3 SAVE Ro ON THE STACK 
4388 017476 013746 OO0004 MOV BERRVEC -(SP) ;3:SAVE PRESENT ERROR VECTOR PS & PC 
4389 017502 013746 O00006 MOV 13(Pbp 
4390 017506 010600 MOV SP \ -SAVE THE STACK POINTER 
4391 ::SET THE ERRVEC e 0 THE PRESENT PS 
4392 017510 104400 TRAP T'PUSH OLD PSW AND PC ON ON STACK 
4393 017512 c MOV P)e §EERAVECI? Tur Msnve, Me PSW IN J#ERRVEC+2 
4394 017516 12701 003776 MOV so 
4395 017522 105727 TSTB techs 7 TUNE HORY RRNAGEMENT? 
4395 O1 000200 SKT11: .WORD SET TO MEMORY MANAGEMENT 
4397 Ol 100062 BPL 33 
4398 017530 012737 017666 oOcoo4 MOV #SKTNEX, JERRVEC ;;SET FOR TIMEOUT 
4399 017536 005737 TST -:KTI1 YOU THERE? 
4400 017542 052737 1 017524 BIS : : YES- 1 KEY 
4401 017550 OOSO46 CLR IN TIALIZE FOR “PAR™ LOADING 
4402 017552 012702 172340 RST ™ 
4403 017556 b12703 000010 HOV . EIGHT “PAR.’S™ AND EIGHT “PDR.” 
4404 O175b2 O1 077406 177740 1S: si OR = AK UP, READ/WRITE 
4405 017570 011622 ide MOV “PAR” 
que piece OS EIT owe Lscen 
4408 017600 612742 177600 HOV F “ 
44 ti Bt eee 017624 ooo004 aay cae Hee ‘2 uN 
v4 017614 012737 o00020 172516 MOV #20, a8SR3 =: : OF REGISTER 
44] Bt FESS poe oe 2s: Bhp taps, (SP)+ HCLERN 8 aight ~aNO SR 
mis Of y eee ao OCU ee QNERRVEC | TEN Ie OUT 
4416 At BheS 35 143776 4g: TST onl Bui 4a77t tae fe NOW EX CHEM 
4417 017644 062712 OO0040 ADD (Re i MAKE Ay 1k STEP 
4418 017650 023712 172356 CMP SaKtPaR? (R2) s LAST. 
4419 017654 101371 BHI 45 : {NO=-TRY iT 
4420 O17656 011202 SKTOUT: MOV (R2) Re ‘GET LAST BANK+1 
4421 017660 005037 177572 CLR gash TURN OFF MEMORY MANAGEMENT 
4422 017664 O00421 BR SIZEX 
4423 O17666 042737 100000 017524 SKTNEX: BIC itt O0,$KT11  ;;KT11 NON-EXISTENT 


<<—— i citi li te it el ti. il. ti: iil i lt OL LT A ELL LLL LLL LD 
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4424 017674 012737 017724 OO0004 SCORE: MOV #SCROUT , d#ERRVEC Rs FOR TIMEOUT 


es HL a ll 

4428 017714 TST (RL) iT TIME OUT 

450 815538 BNE 4127776, A HOS ae 

a3 a See a ae 

4433 Bise O Bie 0,8 1 OOF ORE THE STACK 
34 O} HOV (34 eEMVEE : RESTORE ERROR VECTOR 
4436 01 Ri, eb ; LAST Ss 

ae my Rese = Se 

“3 Ma Se 

444 | Bt MOV (SP)+'R : RESTORE RO 

Ma Bi LSTAD: RO AY - CONTAINS THE LAST ADDRESS 
4444 at ate BK: “WORD : 1 EONT RINE tHE LAST BANK 





KOS 
SSAA SKLUGRGS TERRE OMe ELLE ALARA? OHNE? NSE pace 10 
RHP ARUN AP PRR A DN RE aR Hel RRB Bs Ee 


iO SENT OUT IS INHIBITED IF SW 13 IS SET. 
TYPDBO: BIT 
BNE 


ETE RESERPRRRR Aca sada ita da tees: 


pS 
£ 
Ns) 
— 





020000 161136 


a7 Bor ies 
001162 


737 =O24464 


025014 


1$: 


2$: 


#SW13, aSWR 


RS, ($e) 


Rs’ ~(SP) 


Pe: CROTLF 


SP)+,R3 
a3 


KIPARO(R3) ,R4 


R 
#-6,R5 


1§ 


(SP)+,R5 
(SP)¢, RY 
(SP)+,R3 


s INHIBIT TYPEOUT? 
: YES 


pas are 15, ty, 13 INTO 2,1,9 
iF 0’ BE’ USED 

pe THE BASE PAGE ADDRESS FROM 
inorat LEFT & TIMES (MULTIPLY 
“BY 100 OCTAL) TO GET THE 


SS_ (PHYSICAL) 
Rg CONTAINS MSB-2 BITS 


;STRIP OFF TOP 3 BITS FROM VA & 
; GET ee it A INSIDE THE PAGE 


poe Ae SNTAINS- LOWER 16 SITS 


:R3 CONTAINS TOP 2 BITS 


Save WORE APrEOP Be” 


: PUSH POINTER TO PA ON 
; 






T 
; POINTER TO THE FIRST ASCIZ 


;1S 
OUT THE OCTAL 6 DIGIT 
: PHYSICAL ADDRESS. 


-1] gf 


HG. 


¥ 
POR 


eee RR ET 


SEAS 
Ul .£ UIT 


See RURH SLAC ROB NRON RNR REE oe 
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161104 
022032 


161076 


001162 
161064 


161040 
001162 


001164 


001164 


SE rar ng ge HSE Hick He RON OCH 


CHKCS: A a ‘BIT 15 SET? 
SR PC, GTYRG } GET RKCS, ER 
RTS PC RETURN TO THE ERROR OFt sence 
» CHKDA 
: THIS ROUTINE RETURN IS MADE 
TO T MADE TO 


CHECKS IF RKDA INCREMENTED CORRECTLY. IF NO 
TO, THE ER eshe THE JSR CALL. IF YES, RETURN T 1S 
AT THE TIME OF ENTRY, Re CONTAINS THE EXPECTED RKDA. 


CHKDA: CMP Re BRKOA :DID RKDA INCREMENT CORRECTLY? 
BEG COARET iYES ; 
NOV BRKBA SREGI cet REC 
RTS PC ‘RETURN TO THE ERROR MESSAGE 
A 
TS oe AS REE "EAB ALPEN CSF Tes a GS Wd 
Selig WUT TE RATT 
CHKBA: CLC 
ROL R3 -FORM THE EXPCTD BUS ADDRESS 
ADD ,R4 
ROR «RS 
CMP R4, ORKBA ;DID RKBA INCREMENT CORRECTLY? 
| fm 
ms Pc’ 1GET EXPCTO Aen TO THE EROR MESAGE 
DRKBA, SREG! GET RKBA RECVD 
Tals Hie ROUT Thus ose THAT RKBA 0 LOWED AND MEX RIT WAS SETIN RKCS (BIT 4) 
OWED CORRECTLY, RETURN ADDRESS iS ADJUSTED TO SKIP THE 
— 0 oes 7 tcp) «SET REX BITS 4.5 


CMP wBIT4. (SP)+ s CHECK BIT 4 SET? 


C S. OK 
PC, GTYRG SAVE _RKCS,ER,DS,DA 
RTS PC fom. 


(“or ae. =@= <—o «eer OE eh ~-* —_ 


NO Sd A-OZRKHG., BEL ASRKOS Day BRMANCE EXERG [AGG BACT I 4 SD k ARAE) M08 14:55 PAGE 103 


4543 
qed2 


4S47 


020272 


020312 


160770 


e4 
160766 
37 160754 


TE RYN MRA PT HDPE 17°88, "KEYRA" 1s 


“MADE TO SKIP OVER THE ERROR MESSAGE 


CHKWC: WC OVERF ’ 
Bl ae, eye oven 
001162 MOV DA, SREGO 
001164 MOV ORKWC, SREGI 
RTS C ‘RETURN TO THE EROR MESAGE 
THIS S ROUTINE CHECKS i R/W/S ROY BIT IN RKDS IS SET. If H ie NOT SET _RETURN 
TE RE OE eae eS eee PR SH NERROR RESSAce” On 
160734 CHKRWS: ot oer hie RDY SET? 
J PC, GTYRG RKCS, ER DA 
RTS pc’ ‘RETURN TO THE PBROR MESSAGE 
I, I CKS IF IT IN RKCS I$ SE IF IT IS NOT, 
’ OUTINE CHER BE ee ee ee ee BLLOMING TRE ISR CALL. IF IT Ts. 
TURN ABDRESS IS ADJUSTED TO SKIP OVER THE ERROR MESSAGE” 
seiaiie alate aRKCS | : CONTROL READY SET? 
JSR PC, GTHRG “GET RKCS, ER, DS 
RTS PC RETURN TO THE PROR MESAGE 
COMRET: ADD -ADJUST RETURN ADDRESS TO SKIP OVER MESAGE 


#2, (SP) 
RTS PC 


—— — -—_- PO ee ee ee ee ee oo —_ ee © 


So RKHG PTT 


ce en ecn coRRReoReS 


FESSEEESES 


RRROBRRE 


10:1 


001462 
001512 
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001Sle 


001464 
001462 
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ROUTINE TO SIZE MEMORY 


re a a a, 
-OF ENTRY HEPENDE Nic NITIATED: 
-DRCMND - 


ENTERED WHEN A DRIVE TIS BEING INITIATED. DRIVE # IS SAVED 
:IN BITS O-2 OF 'PRSCMND’ AND AND BIT 8 18 ET 


sCRCMND - ENTERED WHEN A CONTROL RESET IS BEING INITIATED. BIT 14 OF 
;’PRSCMND’ IS SET. 

A POSIT ING opt IATED. BITS 0-2 
SINR PORE RAGA SUDO Ne HERES Ba A 


-IN ALL ABOVE CASES BIT 1S OF ’PRSCMND’ IS SET. 


-FNCMND - ENTERED WHEN A COMMAND OTHER THAN ANY ONE OF THE ABOVE IS BEING 
; INITIATED (EX: READ, WRITE, ETC). 


‘THE OFFSET TO THE COMMAND KEY (BASE=KEY) IS SAVED IN BITS 0-3 OF ‘PSRCMND’. 


at SL Se THAT CONTENTS OF _’PRSFNC’ ARE PUSHED INTO ’PSTFNC’ 
; AND , BPO PUTTING INFO ABOUT THE PRESENT COMMAND IN ’PRSFNC’. 


-RO CONTAINS ADDRESS OF THE COMMAND KEY, AT THE TIME OF ENTRY. 


DRCMND: MOV 1T15+BIT8, QFNC 
. -(SP) -SAVE DRIVE # 
JSR PC CROTLF 
BIS (SP)+, QFNC 
P2 
CRCMND: MOV #BIT15+B1T14, QFNC 
BR P2 
POSCMND: MOV (RO) , QFNC 
BIC $177770,.QFNC_ -GET DRIVE NO. 
BIS saIT1S9B1T7, QFNC 
BR P2 
FNCMND: CLR QFNC 
Pl: MOV RO, -(SP) 
SUB aKEY (SP) 
BIS SP)+, QFNC 
P2: MOV PRSFNC, PSTFNC 
MOV QF NC, PRSFNC 
RTS PC 


ac A. “ll i Al a ma ._—_e -—-——s ee 


wit 
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77 INE TOS 


10:18 
: THIS INFORNAT ON T THE FUNCTION THAT WAS 
St 1 Ger one THAt FUNCTION CRICH LED TO) 0 
: THE . THIS Me is CALLED wen en ERROR OC AND SW 12 


? 
© 
2 
5 






SGERLGERELEE # 





g10046 HISTRY: MOV RO, -(SP) 

010146 MOV Ri’ -(SP) 

012700 001462 MOV 8PRSFNC , RO 

104401 O20746 ML 

1440} 020772 T ; 
4641 G20446 104401 020762 T MH 
4642 O2DME 0 6S: ist (RO) 
4643 Oe04S4 1 3 sREAD, READ CHECK, WRITE, WRITE CHECK, SEEK 
4644 O204S6 10571 TSTB ~—_- (RO) 
4645 OeC ;POSITIONING (SEEK) 
464% O2DME 10 o4o000 I IT14, (RO) 
4647 001014 BNE 1§ -CONTROL RESET 
eu 104401 020476 TYPE 65S :: TYPE ASCIZ STRING 
4650 0004!0 ::GET OVER THE ASCIZ 
465 1 485s ASCIZ /DRESET ON DRV / 
tees oo04es BR 7$ 
4654 
4655 1$: 
4655 104401 O20S26 TYPE 67S :: TYPE ASCIZ STRING 
4657 000404 BR ::GET OVER THE ASCIZ 

--67§: .ASCIZ /CRESET/ 

4659 665: 
4660 000463 BR 4 
466 | 
4662 es: 
4663 104401 O20S46 TYPE 69S :: TYPE ASCIZ STRING 
4BE4 000412 BR BS. -:GET OVER THE ASCIZ 
4665 --69§: .ASCIZ ITIONING DRIVE 7 
S6bb bas: 
4657 de057¢ 011046 7§: MOV (RO). -(SP) 
4658 042716 177770 BIC #1 (SP)  ; TYPE DRIVE NO. 
4669 Ge0600 104402 TYPOC 
1670 000441 BR 4§ 
4672 O20604 011001 3S MOV (RO). RI 
4673 020606 O16101 002032 MOV PCMND(A1),R1 | ;GO TYPE OUT THE FUNCTION 
4674 S206 12 016104 900002 MOV 2(R1) RY “BEING PERFORMED 
4675 16 004737 021736 JSR PC. TYPFN 
4576 Oe0bee 104401 020630 TYPE 71s :: TYPE ASCIZ STRING 
4677 O20626 OO0403 BR 708 GET OVER THE ASCIZ 
4678 --71§:  ASCIZ <15><12>/DAR=/ 
WEG DODESE 11146 708: MOV —s (RL). - (SP) TYPE OUT DISK ADDRESS 
4681 Wark j TYPOC 





04402 
020642 104401 O206so TYPE 73$ -: TYPE ASCIZ STRING 
46 900403 BR 725 ::GET OVER THE ASCIZ 


; 


~—- _- -_- -=— ———_—_ Sar ae —_——— ro _ -_—* ee © eee -“— <= ** es -_ _-_- —— —— = 
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DZRKHG.P11 | 25-APR-77 10:18 ROUTINE TO SIZE ME 
Ry 2 -73$: .ASCIZ / B8A=/ 
020656 ALY 
466 020655 016146 o00008 Nov &(R1),-(SP) 
4688 SSpeed 104401 020672 TYPE” 75$ -: TYPE ASCIZ STRING 
4689 020670 O00403 BR g GET OVER THE ASCIZ 
4690 oa 54758: .ASCIZ / WCs/ 
4692 920700 016146 oO0004 "MOV 4(R1),-(SP) 
4633 104402 TYPOC 
4695S 001464 4g MP , #PSTFNC 
4%, OOUTe DOING B.S 
4697 020714 005720 TST (RO)+ 
4698 020716 104401 O20746 , MHI 
300 ee tONNOL © Ge07o TYPE He 
4701 toes? 6 
4702 104401 001213 S$ TYPE Scrir 
4703 O20740 012601 (SP)+,R1 
a7 020742 012600 n {SP)+,RO 
4708 GeorNe DOSDIS 041516 MHL: ris YS) (12> /FUNCTION / 
4707 Oe0754 O44S52e4 047117 OO0040 
4708 Ged? be tala! Os OS1117 MHe: .ASCIZ / ERROR / 
4710 020772 052101 000 MH3: -ASCIZ sAT/ 
4711 020775 120 O44S22 OS1117 MHY: “ASCIZ /PRIOR TO/ 
4712 O21002 oS2040 o00117 


4713 . EVEN 


MD-11-DZRKHG, RK11-RKOS PERFORMANCE EXERCISER MACY11 30(1046) 
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4714 sSTATSIC 

4715 T THE TI NTRY af! ON 
ot tae tien 
4218 (WRITE, READ, XECUT BOR” wite 
4720 O21006 010046 STATSTC: MOV RO, -(SP) 
4721 O21010 O1024%6 MOV Re’ -(SP) 
17ee O21012 O10346 MOV R3, -(SP) 
4704 021014 oOso02 CLR Re 

4725 021016 005701 TST RI 

4726 O21020 O01404 BEQ 2$ 

4 02 1 Gee ooo0c04 1S: ROD #4,R2 

4 102 1 ¢ Rl 

4729 021030 001374 BNE 1$ 

4730 O21032 O16S50G ooc004 2$: MOV 4(RS),RO 
4731 021036 005400 NEG RO 

4733 O21040 005777 160156 TST aRKCS 

i734 021044 100004 BPL 3$ 

4736 O210% 017703 160152 MOV »R3 
4737 O210S2 o05403 NEG 3 

4738 021054 160300 SuB R3,RO 

47490 O210S6 022704 oD0002 3S: CMP 82,R4 

pa 021062 001005 BNE 5$ 

4743 O21064 O60062 001732 ug: ADD RO, NURTL (R2) 
4744 921070 O0SS6e 001734 ADC nuATH 

ane 021074 oo0404 BR 

He? 021076 o60062 001772 cs: ADD ie ie 
4749 

4750 

4751 021192 oosSS62 901774 ADC NRDH(R2) 
4753 021106 012603 6S: MOV (SP)+,R3 
4754 O21110 Ol MOV (SP)+' Re 
4755 Oellie Ol MOV (SP}+'RO 
4756 621114 900207 RTS pc 


VU S 
06-JUN-77 


wr 
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TAINS THE DRIVE kn FOR WHICH '% pee patie 
BE re OUTED CONTRING The TABLE, FOR 


NE . RY 
H STATISTICS ARE 


10 6 
; PUSH RO, Re, R3 ONTO THE 
; STACK 


sANY ERROR DURING THE XFER? 
; YES, 
»GET y # OF WORDS THAT 
ERE TUALLY X-FERRED 
sWRITE FUNCTION? 

S, ADD ise :, OF WORDS 
rte IT’ : 2-WORD COUNT LO, HI 
;ADD THE # OF WORDS READ 


NOTE THAT WRT CHK, 
READ CHK ARE AL €LSO ¢ 


CONS- 
TDGRED To Oe, "Rego THE HI WORD 


;POP R3,R2,RO FROM THE STACK 


MD~11-DO2RKHG, 
OZRKHG. P11 


4801 


SBGRRSEREE 


7D 


_ 
om 
— 
furO 


bee Ps pee 
ee 
o 


yee be 


RRRERRRE BER 
HSE EOR RR 


5 SSBCEn GAasEE 
od os 


Pm bt ae he be bee fee fee ee ne 


2S-APR-77 10:1 


52ers oP 
Gel i 


a daa! 


ge 
as 


10440S 


bi 


a il 


38 
iy 
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002664 
001712 


100000 


002664 
001562 


C2474 
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ROUTINE TO SIZE MEMORY 


>REPST 


; THI ROUTINE REPORTS ERROR STATISTICS AND DATA-TRANSFER STATISTICS. 


REPSTA: TYPE 
MOV 
MOV 


1$: ow 


2s: 


3$: TYPE 





;DONT TYPE A NEGATIVE NO. 


BLNKS1 
HECN(R2) , -(SP) 


RO :FINISHED WITH THE DRIVES ” 


:BR I 
1 SG26R :REST OF SUMMARY MESSAGE 


sTRepRO CR CRE anuRReRceCe® 


4841 


RRR RRRRRRRRRRRRBR 
ISERRABR ES RR 


ea 
: 


AR 


ab 
UG 


J 


eles! 


d 


a 


1% 


— Or 
i 


cs Ee 


002664 
001672 
002664 
00162e 


026660 


PERFORMANCE EXERCISER 
0:1 ROUT 


4§: 


rUS 
Ob-JUN-77 
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INE TO SIZE MEMORY 
y OBoR RI NBR VES PRESENT? TABLE ADDRESS 
nove tR ae RIVE 
if + a j ‘BEavE, OMY OR oR NPE DUT 


nay TEIRE ens 


NKS3 
tBONVERT "10 A WORD TABLE INDEX 
aft 
SKECN(R2) ,-(SP) 


NK 
ABORT he). -(SP) 
RELNKSI 
SINCN(Re), -(SP) 


4$ 
Exe YaeeyP ; TYPE THE TIME 


GOS 
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25-APR-77 10:18 ROUTINE TO SIZE MEMORY 


4842 

et edo MPSA TTR "HRW" 8 SILL HTS 
4845 lent ci K 1, IN THIe 

+ Cy PE RE le 
he Ak bet THIS Nt ie Ties ie HOES NO HERE AN ERROR CONDITION AND 
ieee “QSCNT 

4853 : THIS COUNT IS INITIALIZED EVERY T GENERATED. THE COUNT 


3685 ESRPRIENTED BPD TR TG AMUN? BP HES oft ROT AN ERROR COROITION 
485? BBE EAST EET CAUGHTCIN AN INDEFINITE LOOP, BECHUSE YS BN ERROR CONDITION. 


4858 
4859 021436 OOSO46 STATUS: CLR -(SP) :DROP PRIORITY AND WAIT FOR INT 
4860 O2l44O0 O12746 021446 MOV #1$,-(SP) ‘RETURN FOR RTI 
4861 O2l444 goo0002 RTI 
upE2 TE THAT THE INTERRUPTS RE ALL ALLOWED ONLY 
4863 “Cenras taouerESn IN THE PROGRAM, BECAUSE 
4864 SHOOTING OF FALIURES EASY. 
4865 Shee RRUPTS ARE ALLOWED 
4867 RAR” RST INTERRUPT AFTER ISSUING 
: °@ SEEK FUNCT 
4870 O21446 001460 1S: INC QSCNT 
4871 Oel4Se O01456 BEQ QEROR 
1454 105777 157542 TSTB aRKCS 

021460 100514 BMI CNOBSY 

021462 005037 OO01466 CLR CICNT 

021466 012737 177761 001470 MOV #-17, CICNT1 

021474 105737 oOO1S Y:  TSTB NTFLG -FOR A 

™ - . . : INTFLG- tT? 18 Set, Is SET. BITS 0-3 CONTAIN 


Pon HCN ICH TH ( fIs\ EXPCTD.. 
N THE Rew 


S ENTERED "INTFLG’ IS CLEARED. 


APSR SRSB SARE SREB IS alse eEeR 


1 1507 XIT 
Aeiebs | bS237 OD14GE Ae TCNT 
021506 001372 BNE CBSY 
021510 005237 001470 INC CICNT 
021514 001367 BNE CBSY 
;TIMED OUT WHILE WAITING FOR THE INTRUPT. 
“ONE OF THE COMMANDS DID NOT INTERRUPT 
021516 113700 001534 NIEROR: MOVB = INTFLG,RO 
021522 042700 177760 BIC #177760, RO 
021526 010003 MOV 
021530 BKEY, RO 
4896 021534 011037 001172 MOV (RO) y eREGY 
4897 021540 042737 177770 001172 BIC 8177970, SREGY 


nus 
0&-JUN-77 
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021546 013737 001172 001250 MOV SREGH, SRORV -GET DRIVE #, FOR TYPING SERIAL » 
021554 104421 o02245 TYPMSG ,MSGIS -PRINT 'DRVE # DIDN’T INTRUPT AFTER’ 
21560 01630S 9002032 MOV PCHND (R3) , RE 
vei vate , TYPEN 
BS ae 20% ie ager .C 0 OUT IN EROR MESAGE DID 
T IN ERUP nCOMPLET TION. 
021602 oS2710 104000 BIS #91715+B1T11, (RO! - INDICATE FUNCTION IS ABORTED 
1606 0004 BR SEXIT 
b 4 GEROR: CLR CNT ‘REESTABLISH COUNT 
ath po aage FER Fr GTYRG 
620 104026 ERROR ‘ALL 8 COMMANDS SHOULD BE DONE BY NOW, TIMED 
-OUT. T PROGRAM 1S WAITING FOR ONE OF THE 
Conan IN 9 To INISHED AND THIS 
‘DID NOT HAPPEN OR FOR SOME OTHER REASON THE 
SAMAR Ke FLAG (BIT 15) OF ONE OF THE 8 
:C KEYS WAS NOT Ser VARIOUS FLAGS ’POS’(-7 
‘ BUSY’ (-7), *KEY’(-8) CONTAIN INFORMATION 
4 : ABOUT THe STATUS OF THE SYSTEM. 
4 O21622 032777 oO20000 157310 BIT #SW13, ISWR ; INHIBIT TYPEOUT? 
4923 021630 001024 BNE : YES 
4924 Oe 163 10440 l 902305 TYPE, 46 
4o5e 1 eat 001426 NOV aust Rd 
4927 Ocl646 012702 1777 MOV #-10,R2 
4928 O216Se 104401 001213 1S: TYPE SCRLF 
4929 021656 012046 MOV (RO)+,-(SP) sTYPE OUT CONTENTS OF ALL KEYS 
4930 O21660 104402 TYPOC : KEY-KEYS 
4331 1662 104401 O02662 TYPE  ,BLNKS3 
4 1666 OOSO46 CLR : 
4933 021670 112116 MOVB (R1)+,(SP) -TYPE OUT CONTENTS OF ALL BUSY FLAGS 
4934 021672 104403 TYPOS : BUSY-BUSY? 
4935 021674 003 .BYTE 3 
4936 021675 000 “BYTE 0 
4937 021676 INC R2 : DONE? 
4938 021700 001364 1§ : NO 
4o40 021702 004737 O16006 25: JSR PC, CLRERR MAKE SURE THERE IS NO HEAD MOVEMENT ON 
494 1 ANY DRIVE 8 THEN DO CONTROL RESET 
4aHe 021706 000137 010630 JMP BEGNEX ‘GO, BAK AND CONTINUE 
4944 021712 OOSO04 CNOBSY: CLR RY 
4945 021714 005204 INC RY 
4348 17 Die7ag 021732 "MOV PPR Vg ~( (SP)  ;RETURN FOR RTI *#exHxRRHRX 
1343 17 RTI 
4851 021732 000137 OI0ESO RTIPC7: JMP QMNGER 


1UF 
SallcOHN BURG TERRE OORT HELE RARIY ObHI-TT IN:SE PmeE 





4952 : TYPFN 
4 -ROUTINE TO TY T THE FUNCTION (READ,WRITE,ETC) ;R4 CONTAINS T 
. FOALS Sal" Ye EGE BE ERIS cmeniion 
4 S :SW 13, IF INHIBITS TYPEOUT. 
1357 02173 032777 O20000 157174 TYPFN: BIT #SW13, ISWR INHIBIT TYPEOUT? 
- oB17G Gets? oo0002 4, #2 ‘WRITE? 
4 l 1 NE 1$ 
4961 021754 104401 002133 TYPE MSG6 
1362 021760 022704 o00004 1S: CMP 4, RY : READ? 
4 1764 001002 BNE 
4964 021766 104401 002141 TYPE 
4965 021772 22704 O00012 25: CMP $12,R4 sREAD CHECK? 
pS2n08 156 ae $69 

Mui’ 3S: CMP bb, RY ;WRITE CHECK? 

10 BNE 4S 

le TYPE MSG8 
4971 16 O2e2704 O00010 4g: CMP $10,R4 : SEEK? 
4972 Oeed22 001002 BNE S$ 
4973 Oeede4 104401 002201 TYPE MSG11 
4974 922030 9000207 ss: RTS bc 


JUD 
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OZRKHG.P11 2S5-APR-77 10:18 ROUTINE TO SIZE MEMORY 
4975 ;GTYRG 
49 ;GET CONTENTS OF RKCS, RKER, RKDS, RKDAA 


N2re ggenae pu77a7 Js7172 0117 GT¥RG: nov gEMDA, SRE 
4980 022046 017737 187146 001164 NOV ORKER, SREG! 
ln a a 


4 
4984 

4985 : GETINE 

4986 :THIS ROUTINE GETS CONTENTS OF RKCE, RKER, RKDS. THEN IT BREAKS DOWN THE 
4387 ; CONTENTS OF RKDA INTO ITS COMPONENT: CYLINDER, SECTOR, SURFACE AND DRIVE 
4989 : 

4990 022064 004737 O2eC40 GETINF: JSR PC, GT3RG 
499] 10046 V RO, -(SP) 
4 10146 V RL, -{ ) 
4 l V -(5P) 
4994 022076 012700 001200 MOV e$REG+2, RO 
4995 922 10e 017701 157122 HOV ; JRL 
499? OBBLIO OMeTOS 177760 Wee P9960, Re 
4998 O2°114 010240 MOV Re, -(RO) 
4999 022116 006201 ASR R1 

so00 022120 006201 Ri 

5001 O22l22 006201 ASR Rl 

2p03 peBise O1olue noe ORL 
S004 158 042702 177776 BIC #177776,Re 
S00S O22134 010240 MOV R2,-(RO} 
5006 022136 ASR RI 

5007 140 010102 MOV R1,Re 
S008 Oeel42 O42702 177400 BIC #177400, Re 
5009 O22l4%6 010240 MOV Re, -(RO) 
S010 O221S0 000301 SWwAB.CtiéR*&‘L 

S011 Q221S2 042701 177770 BIC #177770,R1 
S012 O22156 O10140 MOV R1.-(RO) 
S013 O22160 012602 MOV (SP)+, Re 
S014 O22lbe 012601 MOV (SP)+,R1 
SO1S O22164 012600 MOV (5P)+;RO 
5016 Oe2l66 900207 RTS PC 


KU 
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S017 ; CROTLF 
-CALL: BHO, Abie ;PUSH NO. TO BE ROTATED ON STACK 





5020 THIS ROUTINE aovkive BITS 15, 14, 13 OF A WORD INTO BITS 2, 1, O. THE 
921 ‘REST OF THE BITS OF THE ROTATED WORD ARE CLEARED. 
eps 922170 042766 017777 OO0002 CROTLF: arc #17777, 2(SP) 
S026 ROL 2(SP) 
ROL (SP) 
R (SP) 
ROL (SP) 
5030 RTS PC 
5031 
5032 
Se PC. RGHY 
5036 ae ye oES" The sBRN TENTS OF RKDS, RKER, RKCS, RKDA. THEN 
DRIVE NUMBER FROM RKDA IN’ ’SRDRYV’. 
5037 Oe2222 004737 022032 PC, GTHRG GET RKCS, ER, DS, DA 
208 
S040 ; GTSDRV 
5041 ‘CALL: JSR GTSORV 
so42 THT ROUTINE EXTRACTS THE DRIVE # FROM RKDA (BITS 15,14,13) AND SAVES 
apa T IN “SRORV” (BITS 0, 1,2) 
SO4S 022226 017746 156776 ition MOV aRK =(5P) <GET BITS 15,14,13 FROM RKDA 
5046 Oeeese 004737 022170 JSR 
5047 O22236 012637 O01250 MOV (SP), SRORV ;SAVE THE DRIVE # 


so4e Odeee4e 000207 RTS 


LUG 
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IVE RESET ROUTINE 


9 
eben ORV.RESET ~ DRIVE RESET ROUT! 
50S! iF R/W/S RDY DOES NOT SET OuITHIN A CERTAIN TIME OF DOING DRIVE RESET 
AN ERROR IS REPORTED. 
geeeH 905037 022354 on. aT: CLR TIMOUT 
01 001502 156752 MOV QORV, ARKDA 

5056 022256 01277 000015 156736 MOV - #15, RKCS 
2pee GBePee 433345 000100 156722 15: Sen #100, ORKDS ‘DID R/W/S ROY SET? 
he ayae 177760 MOY 4s b=20, (SP) INO. WAIT FOR R/M/S 
5061 005216 INC (SP)’ én 
Byes sea0e DOSToe ae (tse De 
S064 O22310 005237 022354 INC TIMOUT 
S065 022314 001364 BNE 1 
S066 Oee316 aA o20000 156614 IT 8SW13, ISWR i NATIT TYPEQUT? 
5068 104401 001213 TYPE  ,SCRLF ‘TIMED OUT, R/W/S RDY DID NOT SET 
5069 O22332 104401 027746 . ‘REPORT ERROR 
5070 022336 104401 002206 TYPE G12 
5071 011646 MOV (SP) -(SP) 
5072 Oees44 162716 oo0002 SUB #2, (SP) 
5073 O22350 104402 TYPOC 
5074 Oee3Se o0000e 2S: RTI 
5075 O22354 900000 TIMOUT: O 


MOS 
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an TTL CON.RESET - CONTROL RESET ROUTINE 
“CONTROL RESET ROUTINE 

; CON. RDY 

ae READY ROUTINE 





: 156636 #1, IRKCS 

Bs fesses dens? bo1472 eN-RBY: LR Hoe thea 
S084 022370 105777 !S6626 STB aRKCS we CONTROL RDY SET’ 
oRee as5a5¢ A 177750 MOV #-30,-(SP) T FOR CNTRL RDY 
5087 Oee40e 005216 INC (SP) ; 
SOss - 001 .- 

S (SP)+ 

ae cove ees 

l 14 O01 BNE 1$ 
sos2 O22416 032777 O20000 156514 BIT #SW13, JSWR INHIBIT TYPEOUT? 
ahead assis? PO ADR 002206 RB 12 Xf RL RDY DID NOT SET, REPORT ERROR 
5095 Oee43e 011646 MOV (SP). -(SP) 
ener B4a0 1 PSahe — ae te, (SP) 
5098 pSeuue 104401 O22450 TYPE ; 3 TYPE ASCIZ STRING 
5099 22446 21 BR eis iGeT QVER THE ASCIZ 
$100 ii ASCIZ <15><12>/CONTROLLER NOT READY -  RKCS=/ 
1 le O : MOV JRKCS, - (SP) 
1B BBE og - 
5104 O22e520 oo0000e2 2s: RTI 


OZRKHG.P11 


a 


Pb be be be be pe pe pe 


Tal, 
ee By hy he hey hp de de de dd 


020000 156410 
000000 O2eS4e 


000002 
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G - TYPE MESSAGE ROUTINE (SW13) 


Ty .SBTTL TYPMSG - TYPE MESSAGE ROUTINE (SW13) 
HIRI our ine IS USED FOR MESSAGE TYPEOUTS. IF SW 13 IS SET THE TYPEOUT 


+ TYPh 
: ’ POINTER 
TY.MSG: BIT 

BNE 

MOV 

TYPE 
1S: . WORD 
2s: ADD 

RTI 


/POINTER TO THE ASCII MESSAGE STRING 
wSW13,aSWR -—«; INHIBIT TYPEOUT? 
5(SP),1$ CET POINTER T0 ASCII STRING 
0 
42, (SP) /ADJUST RETURN ADDRESS TO SKIP OVER POINTER 


4 


rh 
nee 5, 
oO 


— > b= Pb b= bp p 
BBS URRY 
po 


UUNUTIUTU UI UT UU UU Un Ucn Unni) 


b= bo 2 pe bs be he bs pe pe 


SH SZBIRRSBH 


HOUNUN UU Un UT LU UI Un uni aniaria 
ob b= b= b= bs bo be b= bb be be be fe 


UE Who 6 bob rn 


i se 
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ZRKHG, RK 
Pll" 2S-APR 
. SBT = KUL1 ICE ROUTINE 

; THIS Thos InfeRmurT PROM THE KWLIL LINE CLOCK 

; - (PER SECOND) (2°S COMPLEMENT) 

3 ame 3 

; KW (e’ ) 

; sc T) 





KWSRVE: INC KWCOUNT ; COUNT PS 
ero 1$ : Bob? 
001560 1S: NOY e =» KHCOUNT ‘RESET 60 CPS COUNT 
BEG ; ’ 
001556 2S: i #60. , KHSEC : “SECONDS” COUNT 
3$ : ? 
001554 MOV 8-60. , KWMIN “RESET “MINUTES” COUNT 
INC KWHR COUNT HOURS 
3S: RTI : RETURN 
* WAT IME 
“ROUTINE PROVIDES SOME WAITING TIME. 
922630 01374 O226S2 WATIME: MOV 8,-(SP) :COUNTER VALUE 
005237 O226S4 1S: INC * COUNT 
022640 001375 BNE 1$ -HANG IN THERE UNTIL COUNT WRAPS AROUND 
005216 INC (SP) ; COUNT AGAIN 
1373 BNE 15 *GO THROUGH MINOR LOOP AGAIN 
reap ST (SP)+ “RESTORE THE STACK POINTER 
022650 RTS PC : RETURN 
O22652 1 25: .WORD 177730 “VALUE FOR APPROX 15 SEC DELAY 
022654 900000 3s: "WORD «0 :*MINOR’ LOOP COUNTER 


& 


o-- 
[a 


= | 
t 
e- 4 


Bee & 


SOG GFRILORAS 


UTUNIN UU UU LI Un unt 
outt 
ond 


+ -- b= bb & = bb Bp 9 bp 


™“ 


e-- 


ee ee 
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10:18 K 
; CHPDRS 
FT 
one, A Re Cepoe IF TH Rfrite ENT OA RESSARE I PRINTED OUT. 
TH re tho Nt RI a BTED ie 169 ComTROL 18 TR T 
tT K CURTIN). ae 15 TO KEEP THE NUMBER OF 10" SE0P Sore 
TEND iP Base eX) TO A SMALL At oi 
001264 CHDPRS: Ist DRVPRS ;ANY DRIVES PRESENT? 
R C ‘YES, EXIT 
a a en a ie 
001100 V tack, SP * RE INI IAL 1ZE STACK 
aR Hae : iB TO SS ROUTINE 


MO - 
D 


7a 
wy 


RPBREB Ja Votol ain 


ui 


SEIKRLSRASBRIRREBR 


: 


OZRKHG, RK11- 
Pll &- 


Spas: 
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ee 


anes 


5 Baas 


a 
8 


RKOS PERFORMANCE a ¥ 


.SBTTL END OF PASS ROUTINE 
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NO OF PASS ROUTINE 


WA ih dndebebobeh-bldohutdbbbbehelehehabehaiehshebehehebeheieliehehehehalehehehahelehehehahelsiehehehehelshshehslelsldie 


S NUMBER ($PASS) 
Tn 18 END- AFTER 1 PASSES THRU THE PROGRAM 
: eIF S A MONITOR GO TO I 
: £1F ISN’T JUMP TO BEGNEX 
— ome 

CLR STSTNM s 5 ERD THE TEST NUMBER 

INC : NCREMENT THE PASS NUMBER 

BIC #1 ‘:D0N’T ALLOW A NEG. NUMBER 
scopct: “ohAD ol —" 

" BGT -: YES 

MOV (PC)+,a(PC)+ ;:RESTORE COUNTER 

SENDCT: gHORD 1 
::GET MONITOR ADDRESS 

= BEG s008GN “i tf NO MONITOR 

RESET :: CLEAR THE WORLD 
SENDAD: J PC, (RO) ::G0 TO MONITOR 

NOP saoRe RO 
aint NOP :ACTLI 

"IMP a(PC)+ . s RETURN 

SRTNAD: .WORD BEGNEX 


MO-11-OZRKHG, RK11-RKOS PERFORMANCE ee 
DZRKHG.P11 


S201 
S202 


Sue Seaee 


CROKRKKRK 
OOnNUI £ WreE 


\ 
: 


8 


SSO NDOON 


S231 


oe 


: 
o 
8 
e 


: 

: 
8 
: 


i 
: 


cn 
a 


RBR RR RE 
ass a Be 


— ane 


O23ile 


1 

231 

1 
0231 
sat 
023146 
023 


023156 
023164 


023166 
023172 


SF 


a 


el 


er 
se 


004 
021627 
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000176 
156144 
156140 
177600 


001213 
001135 


000100 


024414 
og0060 


001140 


000001 


15600e 


000001 
155760 


be 
MACY11 30(104%6) O6- 
Y INPUT ROUTINE 


.SBTTL TTY INPUT ROUTINE 
memati aaiaatanaaiaile 
L 


‘ba. 


-77 14:55 PAGE lel 


eae TNARE Suited REGISTER CHANGE ROUTINE, 


Es t . "as iid auTTCH REGISTER TRAP CALL 


SGTSWR: 


19$: 
7$: 


20s: 


10$: 


PC, STYPEC 
(SP), #60 


T-SWR SELECTED? 


Beat Bo 


se T RE? 
-: IF NO ’T WAIT AROUND 
ee THE CHAR 
ii i P-OFF THE ASCII 
IT ° CONT H 
ee i Ruane IN IN AUTO-MODE? 


. CONTROL-G (fG) 
5 YPE CONTENTS 


SAVE SWREG FOR TYPEOUT 
160 Wype--ocrt ft ASCII(ALL DIGITS; 


ite SUR 
+ CHAR THERE 
tip NOT TRY AGAIN 


;;PICK UP CHAR 
;;MAKE IT 7-BIT ASCII 


3315 IT A_CONTROL-U 

;BRANCH IF NOT 
+ tYES ECHO CONTROL-U (tU) 
232 PREVIOUS INPUT 
;;LET’S TRY IT AGAIN 


-:I1S IT A <CR>? 

:: YES, IS IT THE FIRST CHAR? 
::BRANCH IF YES 

; SAVE 

;;CLEAR UP STACK 


HO <CR> (LF> 
sRE-ENABLE TTY KBD INTERRUPTS ® 


tt BRANCH IF NOT 
i RES -ENABLE TTY KBD INTERRUPTS 


RET 
ECHO CHAR 
;CHAR < 0? 


(Fi =- 


riu 
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S2S7 023176 Oo02420 BLT 18$ ::BRANCH IF YES 
nee 000067 CHP gee” ::CHAR > z ion 
4p ooco60 Bee #60, (SP)+ Hi NBM OFE ASCII 
Sob) 9e3l¢ 905766 oooo02 TST 2($P) ii15 THIS THE FIRST CHAR 
1 Q 17 es H IF YES 
023229 006316 ASL (SP) -:NO, SHIFT PRESENT 
SSee 53884 | DOES Rett} ii GRO FOR NEM ONES 
153556 eae ooo002 178: INC 2(SP) -:KEEP COUNT OF CHAR 
S267 O2e3232 OS6616 177776 BIS =2(SP), (SP) -:SET IN NEW CHAR 
S268 923236 000707 BR ? :5GET THE NEXT 
5269 Oe 1044C! oo1212 188: YPE S St TYPE ?<CR)<LFD 
5270 O23e44 000720 BR 20$ :: SIMULATE CONTROL-U 
5271 .DSABL LSB 
2555 
5274 3 SEKERSRSRSSSERELESEAAAAA SAAS RAAREARASAEAAAAASAAARAAAAELALELALELAE 
S275 ; aTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
S59 : a aa »s INPUT A SI CHARACTER FROM THE TTY 
2555 i; URN HERE it UNARACTER 1S ON THE STACK 
5279 : -: WITH PARITY BIT STRIPPED OFF 
ST : 
S282 02324 O11646 SRDCHR: MOV (SP). -(SP) ::PUSH DOWN THE PC 
S283 023250 Ol oo0004 900002 4( SP}, 2(SP) -:SAVE THE PS 
Soe4 023256 | 155662 1$ ISTe asTKs ::WAIT FOR 
S285 Oedebe | 1 ::Q CHARACTER 
S286 Oe3eb4Y 117766 155656 OO0004 a$STKB,4(SP) -:READ THE TTY 
S287 Oese7e O42766 177600 O00004 BIC 81C<177> .4(SP) 53:GET RID OF JUNK IF ANY 
S2ss 023300 Oe662e7 o00004 000023 CMP 4(SP), #23 -:IS IT A CONTROL-S” 
5289 001013 -: BRANCH IF NO 
S290 023310 105777 155630 25 TS TKS ::WAIT FOR A CHARACTER 
5291 023314 100375 BPL -:LOOP UNTIL ITS THERE 
S292 023316 11774 155624 MOVB § a@STKB,-(SP) -:GET CHARACTER 
5293 042716 177600 BIC #10177, (SP) ::MAKE IT 7-BIT ASCII 
S294 023326 O2e627 00002! CMP (SP)+, bel 15 IT A CONTROL- 
5295 001366 BNE -: IF NOT DISCARD IT 
S296 023334 000750 ae i$ -: YES, RESUME 
S297 023336 Oe6627 OO0004 O00140 3S: CMP 4(SP), #140 ::1S tT UPPER CASE? 
S298 023344 002407 BLT ug -: BRANCH IF YES 
5299 02334 Ceb6be7 o00004 000175 CMP 4(SP), #175 ::IS IT A SPECIAL CHAR? 
5300 023354 003002 T 4§ -: BRANCH IF YES 
S301 023356 042766 o00040 cD0004 IC #40, 4(SP) -:MOKE IT UPPER CASE 
S302 023364 oo000e 4S: RTI -:GOQ BACK TO USE 
$303 | JHBMHEHHHHHHGHHEBHH GHEE HHHHG HH HEH EHEHHEEHHEBBHEEB HEHEHE 
eae ;ATHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
5306 : IN :: INPUT A STRING FROM THE TTY 7 
6307 . RETURN HERE 7 S OF FIRST CHARACTER WILL BE ON THE STACK 
5308 : :: TERMINATOR WILL BE A BYTE OF ALL O'S 
2306 023366 010346 SROLIN: MOV R3,-(SP) : SAVE R3 
S311 023370 012703 023474 1$: MOV aS$TTYIN,R3 ::GET ADDRESS 
S312 923274 022702 O22504 25: CMP #STTYIN¢S. RS  ;;BUFFER FULL? 


Ne 
ce 
~ 


BanRennenpenennes ¢ 


f 


Bae 


$3393 


OZRKHG, 
Pll 


11-RKOS 
- 7 10:18 


APR-7 


i 


3 


sseasesisRoen ee 


PERFORMANCE EXERCISER 


000002 
oo0004 


000 
000012 
020122 
053505 


10$: 
4§: 
33: 


9S: 


STTYIN: . 
SCNTLU: .ASCI 
SCNTLG: . 
SMSWR: . 


SMNEW: 


wai 
MACY11 30(1046) O6-JUN-77 14:55 PAGE 123 
TTY INPUT ROUTINE 


BLOS 
ROCHR 


4§ ;;8R IF YE 
;;G0 “in ppenncren FROM THE TTY 
(SP)+, (R3) ‘GET CHARACTE 
#177, (R3) 1:18 IT 8 OUT 
;;OKIP IF 
SQUES +: TYPE A '?? 
5 ; CLEAR THE BUFFER AND LOOP 
(R3), 98 :ECHO THE C TER 
biS, (R3)+ CHECK FOR RE 
-:LOOP IF NOT RETURN 
-1(R3) ae e RETURN (THE 15) 
coy a :y FEED 
(SP)+,R3 : «RESTORE 
),-(SP) : ADJUST THE STACK AND PUT ADDRESS OF THE 
4(SP) 2(SP) s FIRST ASCII CHARACTER ON IT 
eSTTYIN, 4(SP) 


; ;RET 

+ OE RACE FOR ASCII CHAR. TO TYPE 
: + TERMINATOR 
, es 8 BYTES FOR TTY INPUT 
4#U7615><12> ; sCON “— 

/#G/¢(15><« 12> -;CONTROL “G” 
«15><12>/SWR = / 


/ NEW = 7 


@mco 


nLlu 
SGaeSFON'- AISNE TERME OMIT, BEL AUR GT” SS POE es 
.SBTTL READ AN OCTAL NUMBER FROM THE TTY 


5340 

tr <= aR AR AE eb ab 4b AB gE a a gb a a a A a dak a ak a aa 
-#THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 

S344 ;®CHANGE IT TO BINARY. 





T0 
-#CALL: 
238 J ROO URN HERE 5 REO ee Bits MRE ON TOP OF THE STACK 
oaig i GH ORDER ATF GRE IN SHIOCT ; 
5350 O11646 SRDOCT: MOV (SP), -(SP) : sPROVIDE SPACE FOR THE 
5351 poc004 ooo002 nov ce . om 
2325 V Tem ) TREK 
5354 MOV Re’ -(SP) 7 ON STACK 
5355 1$ RDLIN j 7READ AN ASCIZ LINE 
S356 MOV (SP)+,RO -:GET sone OF 1ST CHARACTER 
$357 CLR Ri » CLEAR DATA WORD 
ese 2$ a a )+, =(SP) PICKUP T ACTER 
3 BBP ems) HOH TY Bt 
$361 ASL l - He 
S362 ROL Re 
Rl -- #8 
4: 177770 are 2 7. (SP) IP T 
Pre Bis REET “RF it aB IN fare Berto 
oa70 35 rors taP)e FL ON TERMINATOR FROM STACK 
5371 000012 MO RL, 12(SP) AGE THE RESULT 
5372 023640 MOV SHIOCT 
5373 MOV (SP)+,Re :;POP STACK INTO R2 
5375 oy Cnep a" + eee STACK INTO RO 
é ses 
5376 RTI c + Re TURN 
5377 SHIOCT: .WORD 0 :tHIGH ORDER BITS GO HERE 


Set LARS TERENCE CONAN, PU RUB aa SS PE 


.SBTTL READ A DECIMAL NUMBER FROM THE TTY 


: geet  ilinerents es ree | aeetty* NUMBER FROM THe Set AND 


$378 
$379 


Ser 
RS 
mae 
rc 


oo0004% d00002 





000071 


00001e 


1S: 


2$: 


33: 


4§: 


cs: 


ub BY A CanRnce, ReTURNAL INE’ FE rat Or 
RETYPED. THE INPUT IS TERMINATED BY 
RANGE OF THE INPUT NUMBER Is 


neora Jag NCE 


RDDEC 
RETURN HERE 
: MOV (SP), -(SP) 
NOV Nat de 
V BP = ) 
ROLIN R2, -(SP) 
V (SP)+,RO 
MOV AB bg 
CLR -(§P) 
CLR Re 
CMPB saw’? -, (RO) 
ae 
nove (RODs Ri 
Q 3$ 
CHPB #.0,R1 
RAPE 79, RI 
BLT c$ 
IT 8107777, (SP) 
ASL (SP) 
MOV (SP), -(SP) 
ASL (SP) 
ASL (SP) 
ADD (SP)+, (SP) 
BYS S$ 
SUB #’0.R 
ADD Ri, (SP) 
BYS S$ 
BR 25 
TST R2 
BEG 4§ 
NEG (SP) 
MOV (5P)+, 12(SP) 
MOV (SP)+’Re 
MOV (SP)+'R1 
MOV (SP)+'RO 
RTI 
TST (SP)+ 
CLRB =. (RO) 


;;READ A DECIMAL NUMBER 
;;NUMBER IS ON TOP OF THE STACK 


} TA 
: ct EN SET BOS TTT VE 

IF A MINUS SIGN WAS TYPED 
::BR IF NO MINUS SIGN 


NO 
iz FOR LAT 
foKuP THIS TER 
-GET IF ZERO 


m Se as, SCTE 
IE CN EER S oveRr TO Pia 


>> LOOP 

tt eR IF IF NUMBER IS NEG 
js YES--NEGATE Ms NUMBER 
- SAVE THE RESULT 

-:POP STACK INTO Re 


;;POP STACK INTO Rl 
a STACK INTO RO 
; RETURN 


;;CLEAN PARTIAL NUMBER FROM STHCK 


:;SET A TERMINATOR 


ACTERS 
p: Bb. 


wv 4 VJ 
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r pe enaaht 001212 - rk OS ues  EVINTRHL CPt i.e ay ome 


S437 024016 000720 BR 1$ ; TRY AGAIN 


K 
SSRRAGCBRSNS: SEAABRSGR TBSTRRMANE P*SFERRVER BinaAY 70 CecTnAL Ba 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
j U TRTARASEREARUSASRARAEEABASASAEO EHIME THO TNEAT WODER TOP CDi 


a) Speen subir cpaues oF ROOST EORaN TREE 


See 


© 
5 
i 


ME 


as 


177777 


177777 +=177776 


gS: 


9S: 


BLT 
INC 


spagnenn® 
ae 


a= 


~< gel 
Rls (Se) 
R1,-(SP) 
Re, -(SP) 
Ba, ~ a 


K,.R3 
#’ | (RO)+ 
TBL(RO),R1 
»RS 


APURSPER 
R 


oe Pe  Saeenee 
+ fu So OR 
3 


Ae 


aan ae * at © fl 


UN-77 
TYPE R 


PS PAGE 127 


A S-DIGIT 


SURGE HORE HOES" 


LEADING ZEROS WILL ALWAYS BE 


;;PUT_THE BINARY NUMBER ON THE STACK 
;;GO TO THE ROUTINE 


+ I 









THE 
es THIS BCD DIGIT 
1368 IF DONE 
*; INCREASE THE BCD DIGIT By 1 


$s A0D BACK THE CONSTANT 
> :CHECK IF BCD ag ie 
Pye DOING LEADING 0°S? 


> MAKE ASCII 
- > MAKE NOT ALREADY A DIGIT 
PUT N THE OUTPUT BUFFER 


sf 
am 






RBS 
3 
ee 


: 


FIRST NON-ZERO? 
a He nator FOR TYPING 


INTO R3 
‘tpop STACK INTO Re 


ASC 
THE 


SRasBES 


-- — ee ee ————o ee wee “< _—_— =—— =e 


=iiq- pee. & +, EXERCISER MACY11 30(1046) O6&-JUN-77 14:55 PAGE 128 
DERKHG. 1] Be. PRA? 10: CONVERT BINARY 70 I AND TYPE ROUTINE 
( 
( 
2 
( 


MAL 
Sa SESE 13h may SSSR BRE RK HNTB 
25g Fie ee 
5500 | 7 


ie SDTBL: ie 


5504 024234 O00004 SDBLK: .BLKW 4 
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$505 


a 


Um 
Poe 
£00r 


in 
rw 


CRU 
0on~ 


i 


nin 
ERROR 


ata 


TARR SesaasaReesmmn 





001157 


024414 
000007 O24460 


*CALL: 
t#1) USING A TRAP LNSTRUCTION 


.SBTTL TYPE ROUTINE 


a eee ee eee eee eee eter eer ST TEAMIHTE UIT AO 
SSAGE MUST TERMINATE WITH A O BYTE. 


ph “Wik ZR RR ALIPORE SEedlbhe SE DBc EF OE" s0c4FF, ER Brenacres. 


SFILLS CONTAINS THE R_ OF FILLER CHARACTERS REQUIRED. 
pores SFILLC CONTAINS THE C TER TO FILL AFTER. 


ifn TYPE =, :MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
iy RESHIOR 
-% 
TYPE: TST PF @ TERMINAL? 
= _ ae {peteS” * 
HALT HALT HERE IF NO TERMINAL 
1$: -(SP) 
MOV (SP) RO cE’ ADDRESS OF ASCIZ STRING 
2S: MOVB  (RO)+,-(SP) ert 10. BE TYPED ONTO STACK 
ib te be oT EP src 
60S: MOV (SP)+.RO 
3S: 800 #2, (SP) T RETURN PC 
4S: CHPB HT, (SP) RETURN IF <HT> 
CHEE : , (SP) ::BRANCH IF NOT <CRLF> 
TST (SP)+ -:POP <CR><LF> EQUIV 
TYPE 7 A CR AND LF 
C SCHARCNT : CLEAR CHARACTER COUNT 
5s ROB. stypec ier eT tS CHARACTER 
6S: CMPB SFtcLc (sp)+ 18 IT TIME FOR FILLER CHARS. ? 
BNE -: IF NO GO GET NEXT CHAR. 
MOV SNULL, -(SP) ::GET # OF FILLER CHARS. NEEDED 
::QND THE NULL CHAR. 
7$: DECB 1(SP) *:DOES A NULL NEED TO YPED? 
BLT § ->BR IF NO--GO POP THE NULL OFF OF STACK 
ISR PC. $TYPEC ::G0 TYPE A NULL 
DECE SCHARCNT ; 300 NOT COUNT AS A COUNT 


sHORIZONTAL TAB PROCESSOR 


gS: MOVB : REPLACE TAB WITH SPACE 
; JSR Pc, stp :: TYPE A SPACC 
BITB 87,$CHARCNT ; }BRANCH IF NOT AT 
BNE -TAB STO 
TST (SP)+ ::POP SPACE OFF STACK 


a a le ———s - -— = or re rr ee ee ae ee a ee = _—te 


MD-11-DZRKHG, RK11-RKOS y, 


OZRKHG.P11 


a 
Seek Dew 


O2e4444 000406 
2255 O2e4446 122766 O000le’ O0000e 1S: 
571 Goda 
024460 
024462 


er 


HARCNT: . WORD 
: RTS 


TPS 
YPEC 
2(SP) , a$TPB 
,etsP) 


RFORMANCE EXERCISER MACY11 30(1046) O6-JUN-77 14:55 PAGE 130 
718 TYPE ROUTINE 


tTBRE TBAT C*BRYATER 1s reaov 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
::1S CHARACTER A CARRIAGE RETURN? 


ee IF NO 

ii ¥E =-CLEAR CHARACTER COUNT 
::1S CHARACTER A LINE FEED? 
} BR ancH IF YE 


{COUNT THE CHARACTER 
‘CHARACTER COUNT STORAGE 


MO-11-DZRKHG, RK11-RKOS PERFORMANCE EXERCI peri -JUN-77 14: 
OZRKHG.P11 2S-APR-77 10:18 Binaky TO Ped ASCII CONVERT ROUTINE 
.SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 

















SS7S 
5576 
2e5g MIS ROUTINE WILL CONVERT A 32-G1T UNSIGNED BINARY NUMBER 10 AN 
= Hee Be ac Pit 
St 
5581 SPNTR, -( Henke i OF BINARY NUMBER 
ae ; ise — chat The Rov 
5583 : # TURN HE FIRST ASCIZ CHAR. IS ON THE STOCK 
S585 
S586 LO4414 SDB20: SAVREG a ALL REGI 
S587 016601 o0000e2 MOV 2 (SP) RI iBT He NTER TO LOW WORD 
2388 012705 O2e4603 MOV TVL413.,R5 ;; T 

012704% 000014 MOV #l2.,R4 --D0 VEN 
5590 012703 177770 MOV #tC7_R3 : : MASK 

iim MOV = (R14, RO +" 

12101 af! haa > oH 
553 110245 18: MOVE Re, (RS) 8 IN DATA TABLE 
cee bee ae is 

C RY sf 
5597 BGT 3 T DIGIT 
eas BEG s LAST DIGIT 
INC ee “ADJUST POINTER FOR FIRST 

S600 MOV RS, 2(SP) + IT ON THE STACK 
eens Re pc - wgva 
S603 2s: ASR Ra : FOR THE LasT DIGIT 
S04 3s: ROR Rl + HE BINARY NUMBER 
S605 ROR RO : NEXT OCTAL DIG aT 
5606 ROR RI 

¥ ROR RO 
5608 ROR Ri 
eri irae ts 
5610 BIC R3,Re :;MASK OUT ALL JUNK 
S611 062702 OO0060 ADD #’°O, Re -:MAKE THIS CHAR. ASCII 
S612 0607753 BR i$ ::GO0 IT IN THE DATA TABLE 
5613 000016 SOCTYL: .BLKB 14. -:RESERVE DATA TABLE 





& 


~- 
e- 


Renee 3g 


SUR URR SER RMB NRO Re 


4 
~— 


RSesaaEos 


: 


REESE BORRORK 


Be 


Ww hd 
BROS: UNOS OGRE OMENS, ETH STRAINS DEGRA dlc 'Sivch Pole 
'SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
ee TINE Itt CONVERT A ae-B1T BINARY NUMBER TO AN UNSIGNED 
eee Te HTL CONVERT 2 Sich OF THE BINGRY NUMER MCT Gee 


: #CALL 
b MOV a -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
* i 











TURN »: THE FIRST SS OF ASCIZ 
-:1S ON THE or Oe 
024604 104414 $DB2D: SAVREG 
024606 O16602 o00002 MOV 2(SP),Re Meee BE 
Nevwel2 012700 024764 MOV ssOECHL RO NG 
Oe4616 010066 900002 MOV RO.2(SP} ie S OF AS BSCIZ STR STRING ON STACK 
024622 Oiee01 MOV (Re) +, RL : «PICK 
SSuese BtS599 g00012 924702 NOV } +4 10 CONVERSIONS 
rate 012704 024714 MOV tSTiPA RY et OF TEN POWER 
O24640 O1270S 24716 MOV TNPWRS2, RS 
024644 005003 1$ CLR R3 - CLEAR PARTIAL 
C2464 161401 SUB (RY) RL ::SUBTRACT TEN 
O2e46S50 005602 SBC Re 
Oe46S2 181502 Sup (RS), Re 
024654 o00e40e2 BL 3$ -BR IF TEN POWER TO LARGE 
Geib5b o0s203 INC Re + ADD 1 TO PARTIAL 
aR : LOOP 
Oeibbe 062401 3s: 00 (R4)+,R1 : RESTORE SUBTRACTED VALUE 
o0sso2 Re 
Oe4665 062402 ADD (R4)+,R2 
G24670 G2eSes CMP (RS)+, (RS)+ ;;MOVE TO NEXT TEN POWER 
024672 052703 000060 BIS 8’0.R ::CHANGE PARTIAL TO ASCII 
024676 110320 MOVB 'RO)+ 3 SAVE, IT 
024700 005327 DEC (Pt)+ : 
024702 Oo00000 4S: WORD O 
024704 001357 BNE iS ;;8R_IF NO 
024706 105020 (RO)+ PRN INAT 
024710 104415 SREG RESTORE REGISTERS 
raat 145000 STNPWR R2000 y i 0ED9 
Bou 28 
160400 160400 1. 0€08 
Oe4722 002765 2765 
024724 113200 113200 :: 1. 0£07 
230 
1100 941100 1. 0E0& 
000017 17 
024734 103240 103240 ::1.0€05 
3420 +1. 0E04 
ferris ees : 
024744 001750 1750 -1.0£03 
o2e4746 og0c00 0 
924750 o00144 144 - 1.002 





MO-11- ns. RK 1 1-RK 
25-APR- 


DZRKHG. P 


0°4%7Se2 


Ribie 


NERS AOBLE LENGTHUBINARY 0 DECIMAL ASCIL CONVERT ROUTINE 


42 ;;1.0E01 
;;1.0€00 
SOECVL: .BLKB ile. * RESERVE STORAGE FOR ASCIZ STRING 


hn a ob 
MD-11-DZRKHG, RK11-RKOS PERFORMANCE EXERCISER MACY11 30(1046) O6-JUN-77 14:SS PAGE 134 
DOZRKHG.P11  25-APR-77 10:18 SUPRS - TYPE NUMERICAL ASCIZ STRING, REPLACE LEADING 0’S BY BLANKS 
7h .SBTTL S - TYPE NUMERICAL ASCIZ STRING, REPLACE LEADING O'S SY BLANKS 
7? ‘SBTTL SUP REL - Type NUMERICAL ASCIZ STRING, LEFT JUSTIFY 
:NOT FROM SYSMAC 
010046 SUPRSL: MOV RO, -(SP) :SAVE RO 
005037 025070 CLR 
016600 o00004 MOV 4(SP),RO 
000405 SUP 1 
010046 SUPRS: MOV RO, -(SP) i SAVE RO 
l 000004 MOV 4u(SP). RO ‘PICKUP THE POINTER 
010037 025070 a MOV RO, SuUP2 ‘SAVE FOR TYPING 
105710 i$:  TSTB (RO) . TERMINATOR? 
001406 BEQ 2 ‘OF IF YES 
162710 000060 CMPB #20, (RO) ‘IS THIS AN ASCII “0”? 
112720 000040 MOVB #40, (RO)+ ‘REPLACE IT WITH “BLANK” 
$a i] 

2$: DEC RO *BACKUP BY 1 
112710 o00060 #0, (RO) “ASCII "0" 
005737 025070 4S: TST supe sLEFT JUSTIFY? 
001002 BNE 
010037 025070 MOV RO, SUP2 - YES 
104401 cs: TYPE GO TYPE 
oooco0 Supe: .WORD O 
012600 MOV (SP)+,RO :RESTORE RO 
012616 MOV (SP)+) (SP) *RESTORE THE STACK 
000207 RTS pc : RETURN 





rid 
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OZRKHG.P11 10:1 NE 


25-APR-77 10:18 INTEGER MULTIPLY ROUTI 
5705 .SBTTL INTEGER MULTIPLY ROUTINE 
e707 ee 
5709 i MOV MUL TIPLER, -(SP) 
$210 i MOV n TIPLICAND , ~ (SP) 
ae i. TURN PRODUCT IS ON THE STACK 
S714 : # STACK PRODUCT 
$715 : ;+.=s==2= Ssesees= 
5716 ti TOP LSB’S 
5717 : +2 MSB'S 
5718 
5719 025109 SMULT 
S720 025100 O10046 MOV RO, -(SP) ; PUSH RO ON STACK 
S721 25102 O10146 MOV R1'-(SP) ::PUSH R1 ON STACK 
S722 025104 010246 MOV Re’ -(SP) : + PUSH Re ON STACK 
S723 025106 OOSO46 CLR -(SP) - = CL HE SIGN KEY 
5724 O25110 016601 oo0ndle MOV 12(SP),R1 GET THE MULTIPLICAND 
5725 025114 10000c BPL 1$ -:BR IF PLUS 
S726 O25116 O0S216 INC (SP) ::SET THE SIGN KEY 
5727 025120 O0S401 NEG Rl -:MAKE THE MULTIPLICAND POSTIVE 
S728 OeSl2e O16602 o00014 1S: MOV 14(SP) Re i 3GET THE MULTIPLIER 
5729 O25126 100002 BPL 2$ -:BR IF PLUS 
5730 025130 005316 DEC (SP) : : UPDATE SIGN KEY 
5731 O25i32 o0S40e2 NEG Re -:MAKE THE MULTIPLIER POSTIVE 
5732 625134 Ol2746 000021 2s: MOV #17. ,-(SP) i sSE T oOo COUNT 
5733 025140 005000 CLR RO : : SETUP THE MULTIPLY LOOP 
5734 025142 103001 33: Bcc 4g ::DON’T ADD IF MULTIPLICAND = 0 
5735 025144 O60200 ADD Re, RO 
5736 025146 006000 4S: ROR RO ::POSITION THE PARITIAL PRODUCT AND 
5737 025150 006001 ROR RI :: THE MULTIPLICAND 
5738 025152 OOS316 DEC (SP) -:HAS ALL BITS OF THE MULTIPLICAND BEEN DONE” 
5739 025154 001372 3$ ::BR IF NO 
5740 025156 O22616 CMP (SP)+, (SP) : T BE NEGATIVE? 
S741 O25160 001403 BEQ S$ -:GO TO EXIT IF NO 
S742 O25162 905400 NEG RO ::YES--SO MAKE IT SO 
5743 025164 OOS401 NEG Rl 
5744 025166 OOS600 SBC RO 
S745 025170 005726 cs: TST (SP)+ ;:CLEAR SIGN INFO. OFF OF STACK 
S74 O25172 010066 oo00le MOV RO, 12(SP) ::PUT THE PRODUCT ON THE STACK (MSS8*S) 
5747 176 O10166 oOc00i0 MOV R1' 10(SP) ro 
5748 012602 MOV (SP)+, Re ::POP STACK INTO Re 
S749 025204 012601 MOV (SP)+,R} --POP STACK INTO Rl 
5750 012600 MOV (SP)+°RO ::POP STACK INTC RC 
675: Oe5210 000207 RTS pt 


aid 
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OZRKHG.P11 ° 25-APR-77 19:18 INTEGER DIVIDE ROUTINE 

$752 -SBTTL INTEGER DIVIDE ROUTINE 
57S4 > #CALL: 
5765  % MOV LOW DIVIDEND ($B) “THE HIGH DIVIDEND MUST BE « 
5756 : MOV HIGH DIVI 1DEND, -(SP :; AS LARGE AS THE BTvIsOR” 
S757 i MOV DIVISOR, ~( SP) 
6758 : JSR PC, SDIV 
5759 : RET ‘QUOTIENT & REMAINDER ARE ON THE STACK 
5760 : “V"=0 IMPLIES NO ERROR 
S761 * “v=] IMPLIES ERROP OCCURRED 
5762 : "C"=0 DIVIDE OVERFLOW OCCURRED 
5763 : “C™=1 ATTEMPTED TO DIVIDE BY ZERO 
S764 -* 
S765 :H 
5766 : STACK NO ERROR OVERFLOW DIVIDE BY ZERO 
5768 : TOP REMAINDER ALL ZEROS ALL ONES 
5769 x +2 QUOTIENT ALL ZEROS ALL ONES 
257 : 025212 013746 000034 SDIV: MOV 34, -(SP) “SAVE CURRENT TRAP VECTOR 
S772 OeSe16 012737 OeS226 000034 MOV ¥1$,34 ‘SET UP TRAP VECTOR 
ae ppeSe eats 025250 1$ a #2$, (SP) W PC 
775 025232 016637 000004 990034 nov 4S) He RES GORE OF OLD TRAP VECT 
2738 SSeSup ponBeS — RTI :RES PSW 
5779 925250 16 000017 25: BIC : 7, (SB) iSTRIP_A IP away CONDITION CODES 

l MOV , ~ (SP) . 
5781 25256 010146 MOV R1;-(SP) : PUSH a one 
5782 OeS260 010246 MOV Ro’ -(SP) Re ON oTAC 
5783 OeSeb2e O10346 MOV R3'-(5P) es gre 
5794 Descbs O0S046 CLR -(SP) SAVE A FOR SIGNS 
5785 012746 000021 MOV 817. .-(SP) -SETUP THE ITERATION COUNTER 
5786 025272 O16601 000024 NOV e4(SP), Ru -PICKUP THE DIVIDEND 
5788 Waa teaver — 5 : GEEK THE SIGN 
5789 025304 105366 900003 DECB 42s: SP) P TRACK OF THE SIGN 
5790 025310 o0S400 RO NEGATE THE ORIGINAL 
5791 O2S3l2 O0S40! NEG RI 
5792 025314 005600 SBC RD 
5793 16 O16602 oo0020 33: MOV 20(SP),R2 ; PICKUP THE DIVISOR - 
5794 622702 ococc! CMP ai Re ‘IF THE DIVISOR IS 1 SKIP THE RES? 
5795 001463 BEQ 1 : YES 
579% 025330 005702 TST R2 
5797 002407 BLT 4 CHECK THE SIGN P 
5798 003011 BGT S$ ‘DIVISOR OF 0 IS A NO-NO 
5799 052766 000003 oc0014 BIS #3, 14(SP) -SET "Vv" 8 “C™ 
5800 025344 012700 177777 MOV s-1,RO SET REMAINDER TO ALL ONES 
5601 025350 000424 BR Q -EXI 
5802 005266 ococcce 4g: INC 2(SP) KEEP TRACK OF DIVISORS SIGN 
5803 025356 000401 BR 6S 
5804 025360 00s40¢ 5S: NEG RD Sten THE ORIGINAL NUMBER 

- w 

Zone Seeae4 GooddS BR t«éwS eee ESRMING QUOTIENT 
5807 025366 006100 75: ROL RO ‘POSITION MSB'S 
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025370 
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eamoou ae 
eee | 


SSS NRT SINS 


SpOeBRe 


cD 
& 


OD NIU £ Lore 
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010003 


a 


S 
7. 


4 
cr 
J 


f 


o0000e 


oocco! 


000020 
000016 


000002 


0000:4 


98: 


108: 


11S: 


les: 


138: 


RO,R3 
»R3 


4 (SP) 


g oeee 
4 ~ SS 


2 Oo 


ZDzAe 
fame pe 


Pan Me 
a oF ERS La 
Ei 


yay IN ae Vaan STATUS WORD 
SER Lh opti 


ee SIGN CORRECTION NEEDED? 
i REGATE 


Aa a 


;BR IF NO 


FRAG BETIEY wo 


‘POP ST 
SETUP TO RETURN CONDITION CODES 


; : POP THE STACK 


SAAC: SLL FENG ORL BEULAH aa” ME 


$839 -SBTTL SAVE AND RESTORE RO-RS ROUTINES 
ove ‘i ae ——————————— 
=a ett covpes 

S845 ; HUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
S roe 

4g S% +2=--(418) 

5849 2 +4---RS 

$850 7% +6---RY 
$8S1 ;% +8---R 
ES ie: 

; +] ---R] 
58s" :#+14---RO 
oper o2ss02 SSAVREG: 
5857 025502 010046 “MOV RO, - (SP) Bist AR oy Stack 
2Beg pseere At NOV Ip) RS SN er K 
5860 10 O10346 MOV Ra, ~ (SP) : PUSH R3 ON STACK 
le & « se 

Bees Bseet§ BiRcue Moy Res =( 8B} Buen Re BY eta 
5863 025516 16646 000022 MOV 22(SP),~(SP) ;sSAVE PS OF MAIN FLOW 
Boece fpeese #Bieeue Noy $818), (3) i BAVE pS OF CALL 
5866 O2553e O16646 O0000e> MOV 2e(SP)>-(SP) 3:SAVE PC OF CALL 
5867 025536 O00002 RTI 
oBE BES #RESTORE RO-RS 
5870 : #CALL: 
5871 ” i ieee RESREG 
2595 025540 012666 : by (SP +, 22(SP) : RESTORE PC OF CALL 
cece Meer 01 Sbee ooooee HOV (50+, SB0SP) LTRESTORE PC OF We rN FLOM 
2858 pSeeen BI Sepe MOV (36) 2° Be : BGR STACK INTO RS 
as fees Hie yee Him IN 
2ead OSeeee OL Seue 2 i ST SBOP STACK INTO Re 
5881 025570 012601 MOV (SP)+/R1 BOP TACK INTO RI 
5282 025572 012600 MOV (5P)+"RO POP STACK INTO RO 
E 025574 900002 RT! 
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$302 


a 
860 
ad 
: 
Q 


76 
76 





re 


BER 


S 


ooo 2800000 
z= 
~ 


8 se Dame pane bo bb bp P 
(ea be 
Ro 

_— 


Be 
a3 


ge fe 


ne 


0000 le 


000902 
177771 


000002 


; #CALL: 
: i 


-# 
. 


bRano 


i$: 


pon 
RETURN 


ROL 


1234 
176543 


MACY11 30(1046) 
NUMBER GENERATOR ROUTINE 


PC, SRAND 


— SiO 


NASGBEZBRINS 


R4),R1 
057, RO 


7401,R1 


BZ BIBLBZLT 


a ee oe ee * 


SUD OS 


- ~—- a i ly me la ————e ee eee —— —_ -— 2. oe - - —- 
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sCALL THE ROUTINE 

: RE URN HERE THE RANDOM 

; NUMBER hee IN 

* SHINUM, SL 

: RO 

. R 

bust fi 

3 At 10° SAVED SEEDS 
: Ne His RENBOR NUMBER 
: ED 

; 


NTO R1 AND 
NTO Re 


SHIFT LOOP 
TO MAKE X 129 


O MAKE X 129 


*RO CARRY 


T CONSTART 
eecie RO WITH HIGHEST DIGIT 


;SAVE RO-SLONUMN (FOR USE NXT TIME) 
-SAVE RI-SHINUM (FOR USE NXT TIME) 


AD UST SP FOR CORRECT RETURN 
;RANDOM SEED FOR DRIVE SELECTION (LO) 
: RANDOM SEED FOR FUNCTION 

FOR CYLINDER (LO) 

; RANDOM SEED FOR BUS tADDRESS (LO) 


: 
;RANOQM SEED FOR WORD COUNT (LO) 
RANDOM SEED FOR DATA (LO) 


Kid 
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S340 _SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
he ia fad eee Te USED 10 CHANGE A 1e-BIT BINARY NUMBER 10 A 6-DI 
5043  ATHIS ROUTI USED TO CHANGE A 1 16-BIT BINARY NUMBER TO A 6-DIGIT 
SHS pce We TUP SUPPRESS ZEROS AND NUMBEP OF DIGITS TO TYPE 
5947 : MOV NUM, -(SP) »;NUMBER TO BE TYPED 
5948 i TYPOS : CALL hoe TYPEOUT 
5949 : BY N tt N= & FOR NUMBER OF DIGITS TO TYPE 
S9S0 = i ~ i) ;;M= 
5951 i .: 1=TYPE LEADING ZEROS 
535¢ i ::O=SUPPRESS LEADING ZEROS 
5964 :¥STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
595s ;¥STYPOS OR STYPOC 
eae? i NUM, -(SP) 0 
Bo ies AMER dURE 
$960 | STYPOC-—-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
eaps fk =m OME Pod Febth™ 

017646 oog000 STYPOS: MOV a(SP),-(SP) as 

116637 000001 026203 MOVB 1(SP), SORILL : + LOAD PERO FILL Sut 

eae i= 

Mee, Baabt Apo” a2 SOMONE +L ABTUST RETURN 

rr : 1 STYPOC aR FI ITCH 

11gra, OBhoo, © BSeSpe HOVE 2° SOMODE +1 get OR oR tb) . 

116737 o0000S 026202 STYPON: MOVB Saat T 1 THE ITERATION COUNT 

Brose NOV +7 (8p) i: RY 

O10S46 MOV RS. -(SP) > SAVE RS 

ars 026205 nove +1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 

062704 990006 nove 86, Re ear IT FOR MAX. ALLOWED 

113704 Oe6203 SOF ILL THE LL SWITCH 

016605 o00012 MOV 12(SP),RS i CKUP THE INPUT NUMBER 

005003 CLR R3 AR THE OUTPUT WORD 

006 105 1S: ROL RS ATE MSB INTO "C™ 

006105 2$: ROL RS -:FORM THIS DIGIT 

006105 ROL RS 

05 ROL 
l 33: ROL R ;GET LSB OF THIS. DIGIT 

105337 026204 DECB SONODE TYPE THIS DIGIT? 

ierane 177770 Bre 8177770,R3 :2GET RID OF JUNK 

001002 BNE 4u§ He OR O 

005704 TST RY ges THIS 0? 

001403 BEG S$ ‘BR IF YES 





22r- 
— 
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59% 026122 005204 Ws: INC RY ; ;DON’T SUPPRESS ANY 

, p 9 MORE 0’ 
997 Oeble4 052703 cg. BIS tiMPKE THIS DIGIT ASCII 
ads 2 Oe te 
140 1 v9 

6001 OSe144 105337 m nEC8 a 1360 TYPE THIS DIGIT 

oe Be oes og HE |e Ba "0 

>005 026155 rd Inc RS ; INSURE LAST DIGIT ISN'T A BLANK 
noe Geeieo 01 ss: hoy eens Histo Re 
a i ts a oe 

6010 O2b174 Olebl6 -_— wae STACK FOR RETURNING 
6011 026176 Oo00002 RTI ; RETURN 

oe eet a ORE AB iH Pa 

6014 Oeb202 O00 SOCNT: “BYTE 0 Ee ROUTINE 
6015 O26203 000 Wi: ‘BYTE 9 1 iT ution 

aS a tt AENBER OF BiGITs TO TYPE 
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B18 d .SBTTL ERROR HANDLER ROUTINE 

;#SW1S=1 
ones fats l ined’ Erno AOR HI er THE FUNCTION THAT 
6023 : iy NG PEREORPED 08 Re Ay THE IME OF ERROR AND 
6024 : T THAT. 
6025S -#NOTE THIS SWIT (12) IS ReANINGECL ORLY FOR ERRORS OCCURING IN THE 
6026 #EXERCISER PART 
6027 : #51 1=1 REGISTERS 
6028  *#SW10=1 
6029 : #SWO9= | 
6030 Sunes T WHICH ERROR OCC 
6031 VE AFTER MAXM ERORS ON THIS DRIVE 
6032 Su =I SERIAL NUMBER OF THE ERRORING DRI 

0 SERRTYP ON 
6034 
ae BS 026206 104407 iain SERROR CKSHR ; LOOK FOR Q “CONTROL G’ 
6237 er * 
6038 O26214 AbS3q Q : DON’ T E ERR FLAG GO TO ZERO 
6039 Oe6216 013777 001102 152716 MOV STSTNM, DISPLAY ;DISPLAY TEST NUMBER AND ERROR FLAG 
6040 032777 152706 BIT 10, 2SWR iBerL ON ? 
6041 001402 BEG sO - SKI 
6042 104401 001206 TYPE L : RING 
6043 026240 005237 O01112 1S: INC $ERTTL -COUNT THE NUMBER OF ERRORS 
604S 026244 032777 OO0004 152666 BIT eSW2, ISWR -COUNT # OF ERORS & DROP DRVE? 
6046 Oeb2eS2 OO1415 BEQ 3$ : NO 
6047 -YES 
6048 026254 010146 MOV R1.-(SP) . R 
6049 013701 001250 MOV V.RI - GET ING DRIVE # 
6050 Oeb2b2e 100410 BMI 2g IF (SRORV)= -1, SKIP(BE HE 
6051 sEROR WAS NOT ATTRIBUTABLE TO ANY 
6052 SPECIFIC DRIVE) 
6053 026264 105261 o01S42 INCB  ERDRV(RI) -COUNT # OF ERORS ON THIS DRIVE 
6054 O26270 lebl2e7 001542 onD0003 CMPB  ERDRV(R1),83  :# OF ERORS GREATER THAN ALLOWABLE? 
6055 O26276 101402 BLOS es - NO 
6056 026300 000137 016312 JMP CT “DROP THE DRIVE 
6058 026304 012601 25: MOV (SP)+,R1 sRESTORE Rl 
6060 026306 011637 001116 MOV (SP). SERRPC GET ADDRESS OF ERROR INSTRUCTION 
6061 Oeb312 n00002 O01116 SUB te 
6062 CLR ~ (SP) 
6063 O2632e2 117716 152570 MOVE  @SERRPC,(SP)  ;STRIP AND SAVE THE ERROR ITEM CODE 
6064 O2632e6 121627 000100 7 CMPB os SP) , #100 FORM THE COMSECT ITEMB IF THIS IS AN 
6065 Oe633e O0e40e2 BLT 4 TEROR ME EQUAL OR ABOVE 100. 
6066 Oc6324 162716 oo0040 SUB #40, (SP) : NOTE R 2 CLASSES OF ERRORS: 
6067 -1) SITEMB’S BELOW 100 
6068 -2) SITEMB’S ABOVE 100 
6069 : SUBTRACTION FACTOR HAS SUCH 
6070 THE CO4SECT OFFSET IS CTED. THIS 
6071 ier WILL CHANGE IF THE TOTAL & OF 
6072 RROR MESSAGES IN CLASS | CHANGES. 
:#=100 -LAST ITEM IN # CLASS 1 - 1 


S 


EE ES ES Gee — ee te me _—_— —— 


oO 


BESSISGG 


talealialealealealsalsalealealeale a 
bb bh 


ay * 


SeRA PERSE EORRE 


pot he 


at Y 


DOVER LORS 


-©O 


026462 


005726 
012716 


012737 


o00002 
013716 
900771 


y 


015726 


177777 


001110 


1S2S46 


000046 


152510 
000040 


001250 


LR TETEMOE OCERE 


4§: 


S$: 


6$: 


7$: 


MACY11 30( 1046) 
NE 


HANDLER ROUTI 


TS? 
MOV 
MOV 


RTI 


a8 ae 


Peat RRTYP 


ae 
PC, HISTRY 
dete, de46 
.+10 


6 


spo, cae 
SITEMB, #40 
VL, -(SP) 


(SP)+ 
#EXCRLUP, (SP) 


#-1, SRORV 


SLPERR, (SP? 
7§ 


A i A A te eee ee _ 


N11 
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;SKIP TYPEOUT IF SET 
‘SKIP TyEEeY ee 
;GO TO USER ERROR ROUTINE 


:TYPE ERROR HISTORY? 
: YES 

;ACT11 AUTOMATIC MODE? 
;YES, HALT ON ERROR 


INUE 


FORA reOMTRO, 


TF NO 
Fede R 37 ERROR MESSAGES IN CLASS 1 


-LOCK OUT ALL INTERUPTS ON RETURN 
-FROM THIS EROR HANDLER, IF THE EROR 
iB IN EXERCISER & LOOPING IS TO 


F THIS ERROR FROM EXERCISER 
i BART iB BR Praha, GO ted -EXCRLUP” 
: OTHERWISE HE TURN THRU 
-RESET SERIAL NO FLAG 
-IF (SRORY)=-1, THEN THE SERIAL 
"NO OF THE DRIVE WILL NOT BE 


: TYPED 
OTHE LE SERIAL NO FOR THE DRIVE 
*SRORV’ WILL BE TYPED. 


Funes RETURN FOR LOOPING 
RETURN 


oe 


a 


be 
Pp p— p< » -~— b— 9 ~~ 9p 


6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
-) 
6 
6 
6 


1 
119 
120 
lel 
lee 
123 
1e4 
12S 





o” 
~ 


61 


CKKKKKKK KKK” rowoc 
0+ b= b= b= be bs Be be be be bo Bt be be Be Be 
in Foroe oe ere oho 


OnNwuUI se fu é. 





104401 


Ss 
wo 
oO 


are = 


ES ae Bae 


HG, xe ; 


APR- 


oe 


#5 


: 


ue 


Be & 
fa 


=) 
~ 
JS 


:18 
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.SBTTL ERROR MESSAGE *TYPEOUT ROUTINE 
* AR TRS After, 
HE ERROR. 


SDS ite Re MCAORRde ISCMMTTU seta 






SERRTYP: TYPE RLF 1 CARR LAGE RETURN” & “LINE FEED” 
MOV ,=(SP) ; 
CLR ‘PICKUP THE ITEM INDEX 
Ene” _ FIT RIS Just 
MOV ,- (SP) i pe re Br FP ie ERROR 
*GET OUT 
18: ie ty AB just THE INDEX SO THAT IT WILL 
ASL RO ‘WORK FOR THE ERROR TABLE 
ASL RO 
ADD RE ERRTE RO -FORM T INTER 
MOV (RO)+, 2 ‘PI “ POINTER 
BEG. 4g $k p F INTER 
T : THE 
2s: .WORD O 4 NTER GOES HERE 
33: TYPE SCRLF : "CORR & “LINE FEED” 
ug: BIT §Su11, aSHR : DUMP RK REGISTERS? 
JSR PC. DMPREG :GO TYPE OUT RK REGISTERS 
TYPE  ,SCRLF 
Ss: MOV (RO)+,6$ :PICKUP “DATA POINTER 
BEQ 7$ : SKIP OUT fF ; 
TYPE : TA 
6S: ; 0 :"DATA PO GOES HERE 
TYPE SCRLF : "CARR AGE RET & “LINE FEED” 
7$: MOV (RO), RO - PT “OATA TABLE” POINTER 
BEQ 95 
. AN OCTAL NUMBER 
QS: MOV Q(RO)}+,-(SP) (RO}+ FOR TYPEOUT 
TYPOC : GO =-OCTAL ASCII(ALL DIGITS: 
TYPE BLNKS2 “TYPE THOC2) Spaces 
TST RO) : Is AINO NUMBER? 
BNE oh -BR IF 
QS: MOV (SP)+. RO -RESTORE RO 
te OSTTEMB, #40 SKIP Tie Oct Oe FOR 
a. a ; + ROU -EXEREISER CRORS 
JSR PC, TIMTYP -TYPE OUT TIME IF SW 3 IS SET 
ISR PC’ SNOTYP -GO TYPE OUT THE SERIAL ® OF THE 
-ERRORING DRIVE, ir SW 1 IS SET. 
10$: RTS pC : RETURN 


"SEER eSB ABCs” 8 PE 


; TIMTYP 


RK11-RKOS PERFORMANCE EXE 


25-APR-77 10:18 


“O-11-OZRKHG 
HG.P11 


OZ 


is BS PEARS Sa IT 2 9 


SHOULD NO 


Pe ROUTINE T 
; SW 
000010 1S22S2 TIMTYP: 


002652 


z 

- = 

ze & ns 

: &£ a 

cE © Re ‘ 
“Ss fe. &, = 
". @f 3 <EYS we 
wee ¢ eS, = 
95 © Est ke 


+, RI 
1 


Ga 
5989" 
Sxtadsteren’s 2c 





i 


Bed 
YPE 
SAVRE 

MOV 
MOV 

BR 
s 
MOV 
MOV 
SR 
JSR 
CMP 
Be8 
i 
RESREG 
RTS 
WORD 


= ~ 


i$ 
es: 


i ee ae 
il itennsbaancandansns 








» SEBSPALCTE RPL BSUS ORE BSRa 


ee eee ea ee ae ee dean nae Leee hee heen hae hese hae hee hee hoe hoe oe he ee ne 
Ste ee eee reilestesleileslvelvelesivelesIvslvs les les lve Iv 5) 


oe 
Bi 
5B, 


NNN NH NG 
BRSRREOE 


SOU OE SEUERE RESP RERREENERES 


aA SSRARRAAA SS ss 


cRK 
Pll 


NR TOR CORSE 


2S-APR-77 1 


oo000e 


152144 


; SNOTYP 

‘THIS ROUTINE TYPES OUT THE SERIAL NUMBER OF T 
cea ke Moen eg, PL : 

: T T 
; THE SERIAL NUPBER IS NOT TYPE 


HE E 
AL yt “One OUT THE 
Y WHICH GAVE THE ERROR. IF THE 
Tb ANY SPEC! IC DRIVE < (SRORV) = -1> THEN 
D OUT. 
AL 


SNOTYP: 


RK 11-RK RFORMANCE EXERCISER MACY11 30(1046) 
He, PR? 10 ERROR MESSAGE TYPEOUT ROU 


BIT 
Q 


, OSWR 
SP) 
Ri 


0 

Ri, -( 

SRORV, 
l 

1$ 


ASCL? 
SRNO(R1),-(SP) 


(SP)+,R1 
PC 
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RRORING DRIVE, IF SW 1 
ONLY IVE 


; TYPE OUT SERIAL #8” 


Rl 
GET ING DRIVE 
-IF ( j= -1, SK 


. E WS 
-TO A SPECIFIC OR 


THIS ROUTINE DUMPS OUT ALL RK11 REGISTERS WHEN SW 11 IS SET AND AN ERROR OCCURS. 


DMPREG: 


65$ 


4§ 
<15><l2>7 PC 


SERRPC, -(SP) 
BLNKS2 
Ro. -(SP) 
RD 
3(RO)+,-(SP) 


BLNKS2 
RO, #RKDB 


1 
(SP)+,RO 
PC 


>; TYPE ASCIZ STRING 
-:GET OVER THE ASCIZ 


""RKDS RKER  RKCS $$ RKWC RKBA RKDA KDE: 


i. + L. 
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6236 .SBTTL SCOPE HANDLER ROUTINE 
Pose LTNIS ROUTINE CONTROLS. THE LOOPING OF SUBTESTS. IT WILL INCRENEN 
peat :ATHIS ron ar if fay ro By at ‘Rec. (DISPLAY ,: :0 

; (7:0)) 
esa aN LOD Te Teal, pat INTO SISPLAY 16 
B42 : #THE SHITCH SPT IONS PROV 0 BY Oris ROUTINE 
6243 : *#SW14=1 LOOP 
bev : #SWO9= 1 LOOP L 

» CALL 
S246 : i SCOPE . sSCOPE=IOT 
6247 
6248 SSCOPE: 
645 104407 CKSWR ss Ser onc paesent 1 N SOFT-SWR 
6250 932777 o40000 151724 1S: BIT BBIT14, ISWR iL SENT TEST? 
6251 001047 BNE SOVE iYES IF 
6252 -eeaeeSTART OF CODE FOR THE XOR te Eateets 
6253 000416 $xTSTR: BR b$ ; IF 1S nave THE “XOR™ TESTER CHANGE 
See 013746 oo0004 MOV a ONTENTS. Be TH THE ERROR VECTOR 
6256 012737 O27244 000004 MOV SEER NERAVES gay ve OR A TineOuT 
6257 005737 177060 TST del TT 
6258 012637 oo0004 MOV (SP)+. J#ERRVEC :sRES THE ERROR V VECTOR 
6259 000421 BR $SVLAD GO TO NEXT 
6260 022626 Ss: CMP (SP) i CLEAR ACK AFTER a TIME OUT 
6261 012637 O00004 MOV (SP) ; ; RESTORE ERROR. VEC 
6262 000407 BR 7$ “LOOP ON SENT test 
6263 6$:;88888END OF FOR THE XOR’ tESTERSSess 
6264 105737 001102 2s: TSTB ; HAS AN ERROR OCCURRED? 
6265 oci4ie2 BEQ SEVLAD ::BR IF NO 
5266 032777 001000 151650 BIT 881703, aSUR ; LOOP ON ERROR? 
6267 001404 BEQ -:BR IF NO 
S268 013737 001110 OO1106 75: HOV SLPERR,SLPAODR ;;SET oor ADDRESS TO LAST SCOPE 
6270 ie 001103 4: CLRB LG :; ZERO THE ERROR FLAG 
6271 105237 001102 $SVLAD: INCB #$TSTNM -: COUNT TEST NUMBERS 
6272 011637 001106 MOV (SP). $LPADR . SCOPE LOOP ADDRESS 
6273 011637 001110 PERR + ERROR LOOP ADDRESS = 
6274 005037 001204 CLR ;}CLEAR THE ESCAPE FROM ERROR ADDRESS 
6275 112737 000001 001115 MOVB SERNAX : ONLY ALLOW ONE(1) ERROR ON NE:.7 TEST 
6276 013777 001102 1Si800 SOVER: MOV STSTNM, ADISPLAY : !OTSPLAY ST NUMBER 
5277 013716 O01106 MOV SLPADR, (SP) :tFUDGE RETURN ADDRESS 
£278 og0002 RTI = FIXES PS 





é 


r 46 
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OZRKHG.P11 — 25-APR 
6279 .SBTTL TRAP DECODER 
pset {THIS ROUTINE MILL PICKUP THE LOWER GYTE OF THE “TRAP™ INSTRUCT] 
H 
e585 oe “use HN ies x feROU rhe th ob TALE FOR Tes TARTING SopReSe 
6284 DESIRED TINE. yOeN USING THE S OBTAINED IT WILL 
boRS 500 10 THAT ROU 
010046 ne MOV RO, -(SP) VE RO. 
01 ooo002 MOV 2($P) RO T TRAP ADDRESS 
see (Sree Glseas my a8) rie 9 
e5e1 Dev3ee | OdeS00 _- — ie PION FOR TNOEXING: 
6292 BS 5364 O01 027404 MOV STRPAD(RO) RO : + INDEX nt Be 
6293 027370 o00200 RTS RO -:G0 TO ROUT TRE 
PSac 
6296 :; THIS IS USE TO HANDLE THE “GETPRI” MACRO 
PSaq 027372 O11646 STRAP2: MOV (SP), -(SP) »:MOVE THE PC DOWN 
6299 027374 O16666 o00004 900002 MOV 4(SP},2(SP) sO THE PSW DOWN 
6300 027402 oo000e RTI ‘RESTORE THE PSW 
6302 .SBTTL TRAP TABLE 
Pos os -¥THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
6308 -#BY THE “TRAP” INSTRUCTION. 
6307 : ROUTINE 
6309 027404 027372 $TRPAD: .WORD S$TRAP2 
6310 027406 Oe4244 $TYPE ;-:CALL=TYPE TRAP+1( 104401) TTY TYPEOQUT ROUTINE 
6311 027410 Oe6004 STYPOC ::CALL=TYPOC TRAP+2( 104402) TAL NUMBER (WITH LEADING ZEROS 
6312 Oe74le 025760 STYPOS :;CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
6313 027414 Oe6020 STYPON :;CALL=TYPON  TRAP+4( 104404) TAL NUMBER (AS PER LAST CALL 
6314 027416 Oe4020 STYPDS ::CALL=TYPDS | TRAP+S(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 
6316 027420 023034 SGTSWR ;;CALL=GTSWR | TRAP+6(104406) GET SOFT-SWR SETTING 
6318 O27422 022764 SCKSWR ;;CALL=CKSWR § TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
6319 Oe74e4 Geseke SROCHR ;;CALL TRAP+10( 104410) TTY IN CHARACTER ROUTINE 
6320 O27426 023366 SROLIN ;;CALL=RDLIN TRAP+ (104411) TTY TYPEIN STRING ROUTINE 
6321 O27430 O23S40 SRDOCT ;;CALL T  TRAP+12(104412) READ AN OCTAL NUMBER 
6322 027432 Oesb4e SRDDEC ;;CALL C _ TRAP+13( 104413) READ A DECIMAL NUMBER FROM TTY 
6323 027434 § G ;;CALL= G TRAP+ 14104414) SAVE ROUT INE 
6224 027436 O25540 SRESREG ; ;CALL TRAP+15( 104415) RES RO-RS ROUTINE 
6325 Oe7440 Dee CN.RST ;;CALL=CON.RESET TRAP +16( 104416) CONTROL RESET ROUT! 
b3ee 027442 02236 CN. RDY ; CALL =CON. ROY TRAP+17(104417) WAIT FOR CONTROL READY 
6 027444 O22244 OR.RST ::CALL=DRV.RESET TRAP+20( 104420) DRIVE RESET ROUTINE 
£328 027446 2 TY.MSG :;CALL=TYPMSG TRAP+21( 104421) TYPE MESSAGE ROUTINE, SwWi2 


cr 
(a! 
rm 
fe 8) 


o— e+ ——e ee oe 


Vic 
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6330 .SBTTL POWER DOWN AND UP ROUTINES 

pias os SSSREERSRAERSARRAERRASRSAERAERSSRRARAAERAARARARARAAARAAALA SAF EAES 

6333 ‘POWER DOWN ROUTI 

6334 O274S0 012737 027614 990024 $PWRDN: MOV SSILLUP, QSPWRVEC ; SET FOR FAST UP 

6335S 027456 012737 000340 000026 MOV #340 gePURVEC +2 SPIO: 

6336 027464 O10046 MOV - (Sp ‘ho ON STACK 

6337 O10146 MOV ROB) i Ri TAC 

6338 9274 10246 MOV R2'-(SP) BU Re ON STAC 

6339 Oe747e O10346 MOV R3,-(SP) ON STACK 

Pau, S7a7e DIOSHE MYO? 2¢8P) sSDUGH BS ON BT Re 

Paq2 eens O7Me 151434 y  BeWR = c SP) pu Ba un of STACK 

6343 027504 010637 027620 MOV SP, SSAVRE ;;SAVE SP 

6344 027510 O1e737 Oe7S2e2 o000e4 MOV BSPWRUP, JNPWRVEC':;SET UP VECTOR 

5345 027516 o00000 HALT 

baie 027520 000776 BR -2 » HANG UP 

6248 ee nner ene ennennannenonnesansssesessess 

Peg 027522 012737 027614 900024 {POWER i UP, HPURVEC ; ;SET FOR FAST DOWN 

eel Gores Olsrbe Sereed ny SARS HUET SP ne ay 

6353 Oe7540 005237 027620 1S: INC SSAVRE ite Wit 

6354 Oe7544 001375 1$ : + OF 

6355 027546 012677 151366 MOV (SP)+, ISWR - + POP SOACK INTO aSWR 

6356 O275S2 012605 MOV (SP)+'RS ::POP STACK INTO RS 

6357 027554 012604 MOV (3P)+, Re -:POP STACK 

6358 027556 012603 MOV (5P)+'R3 ::POP STACK INTO R3 

6359 027560 012602 MOV (SP)+'Re -:POP STACK I 

6360 O27S62 012601 MOV (SP)+,RI1 -:POP STACK INTO Ri 

6361 O27564 012600 (SP)+’RO -:POP STACK INTO RO 

6362 927566 Oic7s7 Oe74S0 oo0024 MOV #SPWRON, DUPWRVEC'’::SET UP THE POWER DOWN VECTOR 

6363 027574 Ol2e737 000340 o000e6 MOV 8340, JSPWRVEC+2 ;:PRIO:7 

6364 Oe7602 104401 TYPE : THE POWER FAILURE 

6365 027604 027622 SPWRMG: .WORD SPOWER -:POWER FAIL MESSAGE POINTER 
027606 012716 MOV (PC)+. (SP) ; RESTART AT PFSTRT 

PaE9 027610 003366 SPWRAD: .WORD PFSTRT ::RESTART ADDRESS 

6368 Oe76l2 O00002 RTI 

6369 027614 O00000 SILLUP: HALT ;; THE POWER UP SEQUENCE WAS STARTED 

6370 027616 000776 BR 2 :: BEFORE THE POWER DOWN WAS COMPLETE 

6371 SSAVRE: O ::PUT THE SP HERE 

£372 G27b22 O0S01S O47520 O4eS27 S$POWER: .ASCIZ <15><12>“POWER™ 

6372 027630 000122 
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sERROR MESSAGES 
EMI: .ASCIZ 
EMe: .ASCIZ 
EM3: .ASCIZ 
EM4: .ASCIZ 
EMS: .ASCIZ 
EMB: -ASCIZ 
EM7: -ASCIZ 
EM10: .ASCIZ 
EM11: .ASCIZ 


ZEROR ON WRITE / 


/ATEMPT TO INITIATE FUNCTION ON ‘BUSY’ DRVE/ 


/CNTROL RDY NOT SET/ 


"/R/W/S RDY NOT SET” 


/CNTROL ROY NOT SET AFTER 1ST INTRUPT ON ISSUING SEEK/ 


/WRONG BITS IN RKCS, EXPCT SEEK/ 


/*BUSY’ FLAG CLEAR ON INTRUPTING DRVE- 


/*POSITIONING’ FLAG FOR INTRUPTING ORVE CLEAR 


/*ERR'OR SET AFTER 1ST INTERRUPT ON ISSUING SEEK’ 
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EMe4: 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


/SCP SET AFTER 1ST INTRUPT ON ISSUING SEEK/ 


/CNTROL RDY NOT SET AFTER SEEK DONE INTRUPT/ 


ZINTRUPTING DRVE (SEEK DONE) WAS NOT "SUSY’/ 


"R/W/S READY NOT SET FOR INTRUPTING DRVE (SEEK DONE)” 


“SIN EROR/ 
/*ERR’OR ON DOING SEEK/ 


/SCP DID NOT SET AFTER SEEK WAS DONE/ 


/SOFT EROR/ 
/DATA (COMPARISON) EROR/ 


/CNTROL RDY CLR ON INTRUPT AFTER RK FUNCTION’ 
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OWN AND UP ROUTINES 


.ASCIZ /DRVE POWER LO/ 


.ASCIZ 


-ASCIZ 
.ASCIZ 


-ASCIZ 


.ASCIZ 


-ASCIZ 


~ASCIZ 


.ASCIZ 


-ASCIZ 


/DRVE UNSAFE/ 


/WPS SET/ 
/INTERUPT DIDN'T OCUR AFTER WRTE/ 


/*ERR’OR SET/ 


/RKDA INCRMENTED WRONG/ 


/RKBA INCRMENTED WRONG/ 


/RKWC DIDN’T OVRFLO TO 0/ 


/MEX BITS WRONG/ 


/WRTE CHK EROR/ 
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03 2 5) pact EXERC! 


Appt 


MO-11-DZRKHG, RK1 
D2RKHG.BI1” 2S- 


RKDA/ 
DRIVE CYL SUR SEC/ 


RKDS 
RKDS 


RKER 
RKER 


RKCS 
ORV #/ 
RKCS 


.ASCIZ 7 PC 
.ASCIZ 7 PC 


PReCIzZ 4 
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DH2S: .ASCIZ 7 PC 


DHe3: 
DH27 
DHi03: 


020103 OHI10S: 
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051040 
OH110: .ASCIZ / PC RKCS RKER RKBA RKDA/ 


020040 
041513 
0S1040 


zal 





6546 
nA EVEN 
6649 O3e422 001116 OO0l162 O01164 ODT1: WORD SERRPC,SREGO, SREG1, SREG2, SREGS,O 
6650 032430 001166 001170 000000 
cose 032436 001116 001162 O00000 ODTe: .WORD SERRPC,SREGO,O 
6654 O32444 OO1116 O01162 001164 ODT21: .WORD SERRPC,SREGO, SREG1,SREGe, SREG3, SREGY, SREGS, SREGE, 0 
6657 032466 001116 OOll6e 001164 OTes: WORD SERRPC, SREGO, SREG1 , SREG2, SREG3, SREGY,0 
6658 032474 001166 001170 00117e 
6653 032502 000000 
6660 C32504 001116 001162 001164 OT103: .WORD SERRPC,SREGO,SREG1,0 
6661 O3eSle 000000 
pees sTHIS IS THE DATA BUFFER USED TO WRITE THE RANDOM PATTERNS ON THE 
6664 “DISK AT THE BEGINING. 400 (OCTAL) WORDS ARE WRITTEN AT A TIME, THUS 
1783 ‘THIS BUFFER IS 400/8 WORDS LONG. 
6667 032514 OBUF : 
6668 032514 o00240 PGEND: NOP 
6689 000001 . END 
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SYMBOL TABLE 


RCISER 


RK11-RKOS PERFORMANCE EXE 
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MD-11-O2RKHG 
OZRKHG.P11 
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BS Ee : A. US 
SEVLAD 027306 STNPWR 024714 
- ABS. 032516 000 


ERRORS DETECTED: 0 


DSKZ: DZRKHG/SOL=DSKZ: SYSMAC. SML , DSKM: DZRKHG. P11 
RUN-TIME: 18 


Sram 9OLi08 
Stype> OSupa4 
STYPEX eaue2 


$TYPOC 026004 


